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 (file)
--- 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