diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
| commit | 14a089c51ea6b2fce5bd014173040a53a4fe588c (patch) | |
| tree | 33bb2fdd43ef489dff2f9cb7ac7c465f91756a9a /lib/CGI/Carp.pm | |
| parent | 228515436ab73df2fc5bb6a3bf2cf5e72ce8bda7 (diff) | |
| download | perl-14a089c51ea6b2fce5bd014173040a53a4fe588c.tar.gz | |
more multiline match cleanups (from Greg Bacon)
p4raw-id: //depot/perl@5403
Diffstat (limited to 'lib/CGI/Carp.pm')
| -rw-r--r-- | lib/CGI/Carp.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/CGI/Carp.pm b/lib/CGI/Carp.pm index 8425fa0686..90e9552c75 100644 --- a/lib/CGI/Carp.pm +++ b/lib/CGI/Carp.pm @@ -223,7 +223,7 @@ sub realdie { CORE::die(@_); } 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); } @@ -235,7 +235,7 @@ sub stamp { $id = $file; ($pack,$file) = caller($frame++); } until !$file; - ($id) = $id=~m|([^/]+)$|; + ($id) = $id=~m|([^/]+)\z|; return "[$time] $id: "; } |