X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperltie.pod;h=6bfdf5988b8a4d9c3b2ac9df4c11338d0ebac0bd;hb=7e1af8bca57f405a8444b575a870918a6d88fc5c;hp=7624881bde031b654d31be11ea1b9895e323308a;hpb=7f3dfc00eaef7e421633b2b47af9963dbc626e75;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perltie.pod b/pod/perltie.pod
index 7624881..6bfdf59 100644
--- a/pod/perltie.pod
+++ b/pod/perltie.pod
@@ -630,7 +630,7 @@ This is the constructor for the class.  That means it is expected to
 return a blessed reference of some sort. The reference can be used to
 hold some internal information.
 
-    sub TIEHANDLE { print "<shout>\n"; my $r; bless \$r, shift }
+    sub TIEHANDLE { print "<shout>\n"; my $i; bless \$i, shift }
 
 =item PRINT this, LIST