From: Wolfgang Laun <Wolfgang.Laun@alcatel.at>
Date: Fri, 21 Dec 2001 17:29:07 +0000 (+0100)
Subject: perltie.pod (or what does it mean?)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69801a400752a60ca4607e9a6774c7653e2fcc72;p=p5sagit%2Fp5-mst-13.2.git

perltie.pod (or what does it mean?)
Message-ID: <3C236353.6625C4C0@alcatel.at>

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

diff --git a/pod/perltie.pod b/pod/perltie.pod
index 38128b9..f959367 100644
--- a/pod/perltie.pod
+++ b/pod/perltie.pod
@@ -850,7 +850,7 @@ or C<sysread> functions.
 
     sub READ {
 	my $self = shift;
-	my $$bufref = \$_[0];
+	my $bufref = \$_[0];
 	my(undef,$len,$offset) = @_;
 	print "READ called, \$buf=$bufref, \$len=$len, \$offset=$offset";
 	# add to $$bufref, set $len to number of characters read