diff options
| author | Adriano Ferreira <a.r.ferreira@gmail.com> | 2008-07-29 14:37:12 -0300 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-07-30 16:28:22 +0000 |
| commit | 3e927c5026f0e46cdf4094a6823c32e022570507 (patch) | |
| tree | 514e202959bab769afd93ea02269edb5cf0a7670 /lib/Exporter.t | |
| parent | b09a11114be6edce50b92b1c65da7aba898fd577 (diff) | |
| download | perl-3e927c5026f0e46cdf4094a6823c32e022570507.tar.gz | |
update Exporter to version 5.63
From: "Adriano Ferreira" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0807291337k150d5172pd671a5df980b7faf@mail.gmail.com>
p4raw-id: //depot/perl@34164
Diffstat (limited to 'lib/Exporter.t')
| -rw-r--r-- | lib/Exporter.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Exporter.t b/lib/Exporter.t index 27b1e67653..ce3711622e 100644 --- a/lib/Exporter.t +++ b/lib/Exporter.t @@ -25,7 +25,7 @@ sub ok ($;$) { BEGIN { $test = 1; - print "1..28\n"; + print "1..30\n"; require Exporter; ok( 1, 'Exporter compiled' ); } @@ -218,3 +218,8 @@ The::Import->import; my $val = eval { wibble() }; ::ok($val eq "wobble", "exported importer worked"); +# Check that Carp recognizes Exporter as internal to Perl +require Carp; +::ok($Carp::Internal{Exporter}, "Carp recognizes Exporter"); +::ok($Carp::Internal{'Exporter::Heavy'}, "Carp recognizes Exporter::Heavy"); + |