In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/67d00ddd69566625e96a71ba8e8a51d9ce0a0310?hp=d463cf2310425ca05fe65f1ee4a376276ab61074>
- Log ----------------------------------------------------------------- commit 67d00ddd69566625e96a71ba8e8a51d9ce0a0310 Author: Alexandr Ciornii <[email protected]> Date: Tue May 11 18:41:22 2010 +0300 use modern Perl style in example Signed-off-by: David Golden <[email protected]> M pod/perltie.pod commit 8ed6508b44c4288c1f567391d4ab274ffedb4083 Author: Alexandr Ciornii <[email protected]> Date: Tue May 11 18:39:19 2010 +0300 Make example work with "use strict" by eliminating barewords. Signed-off-by: David Golden <[email protected]> M lib/Tie/Array.pm ----------------------------------------------------------------------- Summary of changes: lib/Tie/Array.pm | 6 +++--- pod/perltie.pod | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index af8f51e..bfc1024 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -152,9 +152,9 @@ Tie::Array - base class for tied arrays package main; - $object = tie @somearray,Tie::NewArray; - $object = tie @somearray,Tie::StdArray; - $object = tie @somearray,Tie::NewStdArray; + $object = tie @somearray,'Tie::NewArray'; + $object = tie @somearray,'Tie::StdArray'; + $object = tie @somearray,'Tie::NewStdArray'; diff --git a/pod/perltie.pod b/pod/perltie.pod index 370f644..791753d 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: -- Perl5 Master Repository
