use modern Perl style in example
authorAlexandr Ciornii <alexchorny@gmail.com>
Tue, 11 May 2010 15:41:22 +0000 (18:41 +0300)
committerDavid Golden <dagolden@cpan.org>
Thu, 15 Jul 2010 14:38:59 +0000 (10:38 -0400)
Signed-off-by: David Golden <dagolden@cpan.org>
pod/perltie.pod

index 370f644..791753d 100644 (file)
@@ -673,9 +673,9 @@ method on the original object reference returned by tie().
        croak "@{[&whowasi]}: $file not clobberable"
            unless $self->{CLOBBER};
 
-       open(F, "> $file") || croak "can't open $file: $!";
-       print F $value;
-       close(F);
+       open(my $f, '>', $file) || croak "can't open $file: $!";
+       print $f $value;
+       close($f);
     }
 
 If they wanted to clobber something, they might say: