You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/05/26 08:17:50 UTC
cvs commit: modperl/lib/Apache Status.pm
dougm 99/05/25 23:17:49
Modified: . Changes
lib/Apache Status.pm
Log:
fix Apache::Status bug prototype check of 'use constant' subs
Revision Changes Path
1.298 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.297
retrieving revision 1.298
diff -u -r1.297 -r1.298
--- Changes 1999/05/26 01:41:27 1.297
+++ Changes 1999/05/26 06:17:41 1.298
@@ -8,6 +8,9 @@
=item 1.19_01-dev
+fix Apache::Status bug prototype check of 'use constant' subs, thanks to
+Eric Cholet for the spot
+
added set_byterange() and each_byterange() methods
added proper support for {Location,Directory,Files}Match in <Perl> sections
1.15 +3 -1 modperl/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/Status.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Status.pm 1999/01/27 01:08:15 1.14
+++ Status.pm 1999/05/26 06:17:47 1.15
@@ -253,10 +253,12 @@
push @retval, "File: ",
(-e $file ? qq(<a href="file:$file">$file</a>) : $file), "\n";
+ my $cv = $obj->GV->CV;
+ my $proto = $cv->PV if $cv->can('PV');
push @retval,
qq(Package: <a href="$script?$stash">$stash</a>\n);
push @retval, "Line: ", $obj->GV->LINE, "\n";
- push @retval, "Prototype: ", $obj->GV->CV->PV || "none", "\n";
+ push @retval, "Prototype: ", $proto || "none", "\n";
push @retval, "XSUB: ", $obj->XSUB ? "yes" : "no", "\n";
push @retval, peek_link($r, $q, $name, $type);
#push @retval, xref_link($r, $q, $name);