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/autouse.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/autouse.t')
| -rw-r--r-- | lib/autouse.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/autouse.t b/lib/autouse.t index bdd2fba883..bc8e401f6b 100644 --- a/lib/autouse.t +++ b/lib/autouse.t @@ -39,7 +39,7 @@ use autouse 'Carp' => qw(carp croak); local $SIG{__WARN__} = sub { push @warning, @_ }; carp "this carp was predeclared and autoused\n"; ok( scalar @warning, 1 ); - ok( $warning[0], "this carp was predeclared and autoused\n" ); + ok( $warning[0], qr/^this carp was predeclared and autoused\n/ ); eval { croak "It is but a scratch!" }; ok( $@, qr/^It is but a scratch!/); |