| Line | |
|---|
| 1 | #!./perl
|
|---|
| 2 |
|
|---|
| 3 | BEGIN {
|
|---|
| 4 | chdir 't' if -d 't';
|
|---|
| 5 | @INC = qw(../lib);
|
|---|
| 6 | }
|
|---|
| 7 |
|
|---|
| 8 | require "./test.pl";
|
|---|
| 9 |
|
|---|
| 10 | plan( tests => 2 );
|
|---|
| 11 |
|
|---|
| 12 | # Used to segfault (bug #15479)
|
|---|
| 13 | fresh_perl_is(
|
|---|
| 14 | '%:: = ""',
|
|---|
| 15 | 'Odd number of elements in hash assignment at - line 1.',
|
|---|
| 16 | { switches => [ '-w' ] },
|
|---|
| 17 | 'delete $::{STDERR} and print a warning',
|
|---|
| 18 | );
|
|---|
| 19 |
|
|---|
| 20 | # Used to segfault
|
|---|
| 21 | fresh_perl_is(
|
|---|
| 22 | 'BEGIN { $::{"X::"} = 2 }',
|
|---|
| 23 | '',
|
|---|
| 24 | { switches => [ '-w' ] },
|
|---|
| 25 | q(Insert a non-GV in a stash, under warnings 'once'),
|
|---|
| 26 | );
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
