[ID 20011126.150] t/op/pack patch to fix Useless use of unpack in void context at...

Message-Id: <200111270604.WAA20274@dd.tc.fluke.com>

p4raw-id: //depot/perl@13308

diff --git a/t/op/pack.t b/t/op/pack.t
index bb63cff..2fd1312 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -699,8 +699,8 @@ foreach (
 {
     # 615
 
-    # from Wolfgang Laun:Lfix in change #13288
+    # from Wolfgang Laun: fix in change #13288
 
-    eval { unpack("P*", "abc") };
+    eval { my $t=unpack("P*", "abc") };
     ok($@ =~ /P must have an explicit size/);
 }