This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid 2 arg open and bareword handles
authorDan Book <grinnz@grinnz.com>
Wed, 28 Aug 2019 22:41:34 +0000 (18:41 -0400)
committerKarl Williamson <khw@cpan.org>
Fri, 30 Aug 2019 14:37:23 +0000 (08:37 -0600)
pod/perlstyle.pod

index 1f64b9e..adc0f0d 100644 (file)
@@ -103,11 +103,11 @@ you I<SHOULD> do it that way.  Perl is designed to give you several
 ways to do anything, so consider picking the most readable one.  For
 instance
 
-    open(FOO,$foo) || die "Can't open $foo: $!";
+    open(my $fh, '<', $foo) || die "Can't open $foo: $!";
 
 is better than
 
-    die "Can't open $foo: $!" unless open(FOO,$foo);
+    die "Can't open $foo: $!" unless open(my $fh, '<', $foo);
 
 because the second way hides the main point of the statement in a
 modifier.  On the other hand
@@ -249,7 +249,7 @@ system call and arguments were, and (VERY IMPORTANT) should contain the
 standard system error message for what went wrong.  Here's a simple but
 sufficient example:
 
-    opendir(D, $dir)    or die "can't opendir $dir: $!";
+    opendir(my $dh, $dir)       or die "can't opendir $dir: $!";
 
 =item *