diff options
| author | Wolfgang Laun <Wolfgang.Laun@alcatel.at> | 2001-12-21 18:29:07 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-21 19:49:41 +0000 |
| commit | 69801a400752a60ca4607e9a6774c7653e2fcc72 (patch) | |
| tree | 19cd85f71c86755bf4a37d3cf099629dd8db084b /pod/perltie.pod | |
| parent | 1fef16b31363aeccea5f6e69dffaeb2505ecf5be (diff) | |
| download | perl-69801a400752a60ca4607e9a6774c7653e2fcc72.tar.gz | |
perltie.pod (or what does it mean?)
Message-ID: <3C236353.6625C4C0@alcatel.at>
p4raw-id: //depot/perl@13837
Diffstat (limited to 'pod/perltie.pod')
| -rw-r--r-- | pod/perltie.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod index 38128b925e..f959367d28 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 |