From d5e716f5db1b48a63e9e9ea3707ee638103b34a4 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 2 Mar 2007 15:02:43 +0000
Subject: Avoid an assertion failure when overloading readpipe.

p4raw-id: //depot/perl@30444
---
 t/op/gv.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/op/gv.t b/t/op/gv.t
index d736138b62..b5f63be11e 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 
 require './test.pl';
-plan( tests => 159 );
+plan( tests => 160 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -480,6 +480,10 @@ foreach my $value ([1,2,3], {1=>2}, *STDOUT{IO}, \&ok, *STDOUT{FORMAT}) {
     $CORE::GLOBAL::{"readline"}=[];
     eval "no warnings; <STDOUT>";
     is($@, '', "Can't trip up readline overloading");
+
+    $CORE::GLOBAL::{"readpipe"}=[];
+    eval "`` if 0";
+    is($@, '', "Can't trip up readpipe overloading");
 }
 __END__
 Perl
-- 
cgit v1.2.1