diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 01:33:33 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 01:45:33 -0800 |
| commit | 84573ee4ec8e28d2e202e1604b929087c5681653 (patch) | |
| tree | 06d236034881113c08954f21aa97f4991de8e30b /t | |
| parent | 2cb27d1b8fdc3d50d62befdf5c39f4f3a7b2e887 (diff) | |
| download | perl-84573ee4ec8e28d2e202e1604b929087c5681653.tar.gz | |
Suppress ‘once’ warning in gmagic.t
Diffstat (limited to 't')
| -rw-r--r-- | t/op/gmagic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/gmagic.t b/t/op/gmagic.t index c50205267c..02ed53c305 100644 --- a/t/op/gmagic.t +++ b/t/op/gmagic.t @@ -75,7 +75,7 @@ expected_tie_calls(tied $c, 1, 2, 'chomping a ref'); close $h or die "$0 cannot close $outfile: $!"; # Do this again, with a utf8 handle - $c = *finish; # 1 write + $c = *foo; # 1 write open $h, "<:utf8", $outfile; sysread $h, $c, 3, 7; # 1 read; 1 write is $c, "*main::bar", 'what sysread wrote'; # 1 read |