diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-05-25 17:05:02 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-31 09:52:05 +0000 |
| commit | 59b0a8b7fe6b66a1488f6943ad58e73704f876b0 (patch) | |
| tree | f06912bb1f79f36f835ed2880a1a2be0f7205ccd /lib/Carp.t | |
| parent | e509e6934ce7cafd6c279046164b9b6255429d8a (diff) | |
| download | perl-59b0a8b7fe6b66a1488f6943ad58e73704f876b0.tar.gz | |
Fix anomalies in Carp functions
Message-ID: <40B3609E.5060502@uk.radan.com>
p4raw-id: //depot/perl@22876
Diffstat (limited to 'lib/Carp.t')
| -rw-r--r-- | lib/Carp.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carp.t b/lib/Carp.t index 2ea98d86d7..cc2da1744c 100644 --- a/lib/Carp.t +++ b/lib/Carp.t @@ -11,7 +11,7 @@ print "ok 1\n"; $SIG{__WARN__} = sub { print "ok $1\n" - if $_[0] =~ m!ok (\d+)$! }; + if $_[0] =~ m!ok (\d+)\n at .+\b(?i:carp\.t) line \d+$! }; carp "ok 2\n"; |