diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 11:31:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-02 11:31:53 +0000 |
| commit | 8b6e382403e01ada78964d4a7f0d27d8a5bbd79d (patch) | |
| tree | 577896caff5c482792dd3c63c0e579951237c426 /t/pragma | |
| parent | 593fd89c99becb46cebe2c846522b9c3476a3ff5 (diff) | |
| download | perl-8b6e382403e01ada78964d4a7f0d27d8a5bbd79d.tar.gz | |
Retract changes #8254 and #8255, causes coredump in
'tie FH, "main"', reported by Abigail, culprit found by
Benjamin Sugars. Mirrors maintperl change #9950.
p4raw-link: @9950 on //depot/maint-5.6/perl: 86e3b6d76fb0afcf1f6b883c997e1a01ed17ab8e
p4raw-link: @8254 on //depot/perl: d38a0a1467f89c02cbd16ebdc31b41c6b552f379
p4raw-id: //depot/perl@9952
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/sub_lval.t | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t index f19268b384..4e92ef1172 100755 --- a/t/pragma/sub_lval.t +++ b/t/pragma/sub_lval.t @@ -1,4 +1,4 @@ -print "1..64\n"; +print "1..47\n"; BEGIN { chdir 't' if -d 't'; @@ -430,18 +430,9 @@ foobar() = 12; print "# '$newvar'.\nnot " unless $newvar eq "12"; print "ok 47\n"; -# Testing DWIM of foo = bar; -sub foo : lvalue { - $a; -} -$a = "not ok 48\n"; -foo = "ok 48\n"; -print $a; - -open bar, ">nothing" or die $!; -bar = *STDOUT; -print bar "ok 49\n"; -unlink "nothing"; +print "ok 48 # Skip: removed test\n"; + +print "ok 49 # Skip: removed test\n"; { my %hash; my @array; |