From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Aug 2001 16:32:52 +0000 (+0000)
Subject: Test for change #11536.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df646e84f898ad88193e38b6a680d118688bafa2;p=p5sagit%2Fp5-mst-13.2.git

Test for change #11536.

p4raw-link: @11536 on //depot/perl: af68e658651cf56700790e24ea04a752928b0df4

p4raw-id: //depot/perl@11539
---

diff --git a/t/op/tiehandle.t b/t/op/tiehandle.t
index b04bdb7..cb9a290 100755
--- a/t/op/tiehandle.t
+++ b/t/op/tiehandle.t
@@ -77,7 +77,7 @@ package main;
 
 use Symbol;
 
-print "1..33\n";
+print "1..35\n";
 
 my $fh = gensym;
 
@@ -165,3 +165,27 @@ ok($r == 1);
     $r = print STDERR @expect[2,3];
     ok($r == 1);
 }
+
+{
+    # Test for change #11536
+    package Foo;
+    use strict;
+    sub TIEHANDLE { bless {} }
+    my $cnt = 'a';
+    sub READ {
+	$_[1] = $cnt++;
+	1;
+    }
+    sub do_read {
+	my $fh = shift;
+	read $fh, my $buff, 1;
+	main::ok(1);
+    }
+    $|=1;
+    tie *STDIN, 'Foo';
+    read STDIN, my $buff, 1;
+    main::ok(1);
+    do_read(\*STDIN);
+    untie *STDIN;
+}
+