diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-14 09:16:17 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-14 09:39:12 +0200 |
| commit | ba7a45496628db970f8607e67b4345e8bc45f6fe (patch) | |
| tree | 837792bfc82bd0ce9c482f66b77f43e112eeb93e /lib/Carp.t | |
| parent | 7de6a4226c6dd997db56431071190f72ed9cef6b (diff) | |
| download | perl-ba7a45496628db970f8607e67b4345e8bc45f6fe.tar.gz | |
Merge Carp::Heavy into Carp
Diffstat (limited to 'lib/Carp.t')
| -rw-r--r-- | lib/Carp.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Carp.t b/lib/Carp.t index c24760b153..af07ed661c 100644 --- a/lib/Carp.t +++ b/lib/Carp.t @@ -55,11 +55,11 @@ sub_6; ok(1); # test for caller_info API -my $eval = "use Carp::Heavy; return Carp::caller_info(0);"; +my $eval = "use Carp; return Carp::caller_info(0);"; my %info = eval($eval); is($info{sub_name}, "eval '$eval'", 'caller_info API'); -# test for '...::CARP_NOT used only once' warning from Carp::Heavy +# test for '...::CARP_NOT used only once' warning from Carp my $warning; eval { BEGIN { @@ -70,7 +70,7 @@ eval { package Z; BEGIN { eval { Carp::croak() } } }; -ok !$warning, q/'...::CARP_NOT used only once' warning from Carp::Heavy/; +ok !$warning, q/'...::CARP_NOT used only once' warning from Carp/; # Test the location of error messages. like(A::short(), qr/^Error at C/, "Short messages skip carped package"); |