Author: pgollucci Date: Thu Sep 1 21:23:33 2005 New Revision: 266259 URL: http://svn.apache.org/viewcvs?rev=266259&view=rev Log: s/my(/my (/g
Modified: perl/modperl/trunk/lib/Apache2/Status.pm Modified: perl/modperl/trunk/lib/Apache2/Status.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Status.pm?rev=266259&r1=266258&r2=266259&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/Status.pm (original) +++ perl/modperl/trunk/lib/Apache2/Status.pm Thu Sep 1 21:23:33 2005 @@ -65,11 +65,11 @@ ); sub has { - my($r, $what) = @_; + my ($r, $what) = @_; return 0 unless exists $requires{$what}; - my($opt, $module, $version) = @{ $requires{$what} }; + my ($opt, $module, $version) = @{ $requires{$what} }; (my $file = $module) =~ s|::|/|; $file .= ".pm"; @@ -93,13 +93,13 @@ } sub status_config { - my($r, $key) = @_; + my ($r, $key) = @_; return (lc($r->dir_config($key)) eq "on") || (lc($r->dir_config('StatusOptionsAll')) eq "on"); } sub menu_item { - my($self, $key, $val, $sub) = @_; + my ($self, $key, $val, $sub) = @_; $status{$key} = $val; no strict; no warnings 'redefine'; @@ -107,7 +107,7 @@ } sub handler { - my($r) = @_; + my ($r) = @_; my $qs = $r->args || ""; my $sub = "status_$qs"; no strict 'refs'; @@ -173,7 +173,7 @@ } sub symdump { - my($r, $package) = @_; + my ($r, $package) = @_; return install_hint("Devel::Symdump") unless has($r, "symdump"); @@ -184,18 +184,18 @@ } sub status_symdump { - my($r) = @_; + my ($r) = @_; [symdump($r, 'main')]; } sub status_section_config { - my($r) = @_; + my ($r) = @_; require Apache2::PerlSections; ["<pre>", Apache2::PerlSections->dump, "</pre>"]; } sub status_inc { - my($r) = @_; + my ($r) = @_; my $uri = $r->uri; my @retval = ( @@ -229,7 +229,7 @@ } sub status_script { - my($r) = @_; + my ($r) = @_; my @retval = ( '<table border="1">', @@ -248,7 +248,7 @@ my $RegistryCache; sub registry_cache { - my($self, $cache) = @_; + my ($self, $cache) = @_; # XXX: generalize @@ -257,7 +257,7 @@ } sub get_packages_per_handler { - my($root, $stash) = @_; + my ($root, $stash) = @_; my %handlers = (); my @packages = get_packages($stash); @@ -269,7 +269,7 @@ } sub get_packages { - my($stash) = @_; + my ($stash) = @_; no strict 'refs'; my @packages = (); @@ -281,7 +281,7 @@ } sub status_rgysubs { - my($r) = @_; + my ($r) = @_; local $_; my $uri = $r->uri; @@ -366,11 +366,11 @@ } sub status_data_dump { - my($r) = @_; + my ($r) = @_; return install_hint('Data::Dumper') unless has($r, "dumper"); - my($name, $type) = (split "/", $r->uri)[-2,-1]; + my ($name, $type) = (split "/", $r->uri)[-2,-1]; no strict 'refs'; my @retval = "<p>\nData Dump of $name $type\n</p>\n<pre>\n"; @@ -390,11 +390,11 @@ } sub status_cv_dump { - my($r) = @_; + my ($r) = @_; return [] unless has($r, "b"); no strict 'refs'; - my($name, $type) = (split "/", $r->uri)[-2,-1]; + my ($name, $type) = (split "/", $r->uri)[-2,-1]; # could be another child, which doesn't have this symbol table? return unless *$name{CODE}; @@ -427,7 +427,7 @@ } sub b_lexinfo_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "lexinfo"); @@ -442,7 +442,7 @@ return unless has($r, "lexinfo"); no strict 'refs'; - my($name) = (split "/", $r->uri)[-1]; + my ($name) = (split "/", $r->uri)[-1]; $r->print("Lexical Info for $name\n\n"); my $lexi = B::LexInfo->new; my $info = $lexi->cvlexinfo($name); @@ -452,7 +452,7 @@ my %b_terse_exp = ('slow' => 'syntax', 'exec' => 'execution', basic => 'syntax'); sub b_terse_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "terse"); @@ -473,7 +473,7 @@ return unless has($r, "terse"); no strict 'refs'; - my($arg, $name) = (split "/", $r->uri)[-2,-1]; + my ($arg, $name) = (split "/", $r->uri)[-2,-1]; $r->print("Syntax Tree Dump ($b_terse_exp{$arg}) for $name\n\n"); # XXX: blead perl dumps things to STDERR, though the same version @@ -487,7 +487,7 @@ } sub b_terse_size_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "tersesize"); @@ -508,7 +508,7 @@ return unless has($r, "tersesize"); $r->print('<pre>'); - my($arg, $name) = (split "/", $r->uri)[-2,-1]; + my ($arg, $name) = (split "/", $r->uri)[-2,-1]; my $uri = $r->location; my $link = qq{<a href="$uri/$name/CODE?cv_dump">$name</a>}; $r->print("Syntax Tree Size ($b_terse_exp{$arg} order) for $link\n\n"); @@ -516,7 +516,7 @@ } sub b_package_size_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "packagesize"); @@ -525,7 +525,7 @@ } sub noh_b_package_size { - my($r) = @_; + my ($r) = @_; $r->content_type("text/html"); return unless has($r, "packagesize"); @@ -533,10 +533,10 @@ $r->print('<pre>'); no strict 'refs'; - my($package) = (split "/", $r->uri)[-1]; + my ($package) = (split "/", $r->uri)[-1]; my $script = $r->location; $r->print("Memory Usage for package $package\n\n"); - my($subs, $opcount, $opsize) = B::TerseSize::package_size($package); + my ($subs, $opcount, $opsize) = B::TerseSize::package_size($package); my $Kb = sprintf "%.2f", $opsize / 1024; my $Mb = sprintf "%.2f", $Kb / 1000; $r->print("Totals: $opsize bytes, $Kb Kb, $Mb Mb | $opcount OPs\n\n"); @@ -570,7 +570,7 @@ } sub b_deparse_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "deparse"); @@ -593,7 +593,7 @@ } sub b_fathom_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "fathom"); @@ -615,7 +615,7 @@ } sub peek_link { - my($r, $name, $type) = @_; + my ($r, $name, $type) = @_; return unless has($r, "peek"); @@ -630,14 +630,14 @@ return unless has($r, "peek"); no strict 'refs'; - my($name, $type) = (split "/", $r->uri)[-2,-1]; + my ($name, $type) = (split "/", $r->uri)[-2,-1]; $type =~ s/^FUNCTION$/CODE/; $r->print("Peek Dump of $name $type\n\n"); Apache::Peek::Dump(*{$name}{$type}); } sub xref_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "xref"); @@ -664,7 +664,7 @@ } sub b_graph_link { - my($r, $name) = @_; + my ($r, $name) = @_; return unless has($r, "graph"); @@ -720,7 +720,7 @@ } sub B::Graph::TIEHANDLE { - my($class, $r, $file) = @_; + my ($class, $r, $file) = @_; if ($file =~ /^([^<>|;]+)$/) { $file = $1; @@ -756,7 +756,7 @@ my %can_dump = map {$_,1} qw(scalars arrays hashes); sub as_HTML { - my($self, $package, $r) = @_; + my ($self, $package, $r) = @_; my @m = qw(<table>); my $uri = $r->uri;