From 84573ee4ec8e28d2e202e1604b929087c5681653 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 24 Nov 2011 01:33:33 -0800
Subject: [PATCH] =?utf8?q?Suppress=20=E2=80=98once=E2=80=99=20warning=20in?=
 =?utf8?q?=20gmagic.t?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 t/op/gmagic.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/op/gmagic.t b/t/op/gmagic.t
index c502052..02ed53c 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
-- 
2.7.4