diff options
| author | Alexandr Ciornii <alexchorny@gmail.com> | 2010-05-11 18:41:22 +0300 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-07-15 10:38:59 -0400 |
| commit | 67d00ddd69566625e96a71ba8e8a51d9ce0a0310 (patch) | |
| tree | 9b73000e21eebb5dac53b605c65717c9c4e881c2 /pod/perltie.pod | |
| parent | 8ed6508b44c4288c1f567391d4ab274ffedb4083 (diff) | |
| download | perl-67d00ddd69566625e96a71ba8e8a51d9ce0a0310.tar.gz | |
use modern Perl style in example
Signed-off-by: David Golden <dagolden@cpan.org>
Diffstat (limited to 'pod/perltie.pod')
| -rw-r--r-- | pod/perltie.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod index 370f644209..791753dc90 100644 --- a/pod/perltie.pod +++ b/pod/perltie.pod @@ -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: |