This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress ‘once’ warning in gmagic.t
authorFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:33:33 +0000 (01:33 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:33 +0000 (01:45 -0800)
t/op/gmagic.t

index c502052..02ed53c 100644 (file)
@@ -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
     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
     open $h, "<:utf8", $outfile;
     sysread $h, $c, 3, 7;                              # 1 read; 1 write
     is $c, "*main::bar", 'what sysread wrote';         # 1 read