Minor PBP file handle ammendment

Removing Bareword file handles and Two-argument "open".
libwww-perl · Oct 4, 2019 · c6dfcb5 · c6dfcb5
1 parent a856e75
commit c6dfcb5
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/form.t b/t/form.t
@@ -128,10 +128,10 @@ EOT
 my $filename = sprintf "foo-%08d.txt", $$;
 die if -e $filename;
 
-open(FILE, ">$filename") || die;
-binmode(FILE);
-print FILE "This is some text\n";
-close(FILE) || die;
+open my $file, ">", $filename || die;
+binmode($file);
+print $file "This is some text\n";
+close($file) || die;
 
 $f->value(f => $filename);