develooper Front page | perl.perl5.porters | Postings from March 2000

[PATCH 5.5.670] CGI::Carp cleanup

From:
Greg Bacon
Date:
March 1, 2000 08:34
Subject:
[PATCH 5.5.670] CGI::Carp cleanup
Message ID:
200003011641.KAA23255@ruby.itsc.uah.edu
--- perl-5.5.670.dist/lib/CGI/Carp.pm	Tue Jul 20 12:17:59 1999
+++ perl-5.5.670/lib/CGI/Carp.pm	Wed Mar  1 10:36:39 2000
@@ -223,7 +223,7 @@
 sub id {
     my $level = shift;
     my($pack,$file,$line,$sub) = caller($level);
-    my($id) = $file=~m|([^/]+)$|;
+    my($id) = $file=~m|([^/]+)\z|;
     return ($file,$line,$id);
 }
End of Patch.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About