diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-09-08 05:03:23 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-09-08 05:03:23 +0200 |
| commit | cf203c62f1150b565f11422be478d513ad57902b (patch) | |
| tree | c981032e4a85e93872e94a18a250de9c2314f4a1 /dist | |
| parent | 2646967208cda4929d37b7f8f7af46f79edba94a (diff) | |
| download | perl-cf203c62f1150b565f11422be478d513ad57902b.tar.gz | |
Move test for #76540 to op/gv.t
Commit e5c69c9b added the test to dist/constant/t/constant.t, probably because
the bug was initially reported in combination with constant.pm. However, it was
a core bug in gv_init and can be reproduced easily without constant.pm.
With this change dist/constant can be safely synced back to CPAN without having
to SKIP or TODO this particular test.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/constant/t/constant.t | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/dist/constant/t/constant.t b/dist/constant/t/constant.t index 793ac0a72d..85a9355a19 100644 --- a/dist/constant/t/constant.t +++ b/dist/constant/t/constant.t @@ -9,7 +9,7 @@ END { @warnings && print STDERR join "\n- ", "accumulated warnings:", @warnings use strict; -use Test::More tests => 97; +use Test::More tests => 96; my $TB = Test::More->builder; BEGIN { use_ok('constant'); } @@ -347,16 +347,3 @@ $kloong = 'schlozhauer'; eval 'use constant undef, 5; 1'; like $@, qr/\ACan't use undef as constant name at /; } - -# [perl #76540] -# this caused panics or 'Attempt to free unreferenced scalar' -# (its a compile-time issue, so the die lets us skip the prints) - -eval <<EOF; -use constant FOO => 'bar'; -die "made it"; -print FOO, "\n"; -print FOO, "\n"; -EOF -like($@, qr/made it/, "#76540"); - |