From: Ken Youens-Clark Date: Mon, 20 Apr 2009 21:22:29 +0000 (+0000) Subject: Use three-arg open. X-Git-Tag: v0.11008~185 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4924f25d6cc897fa44e9bd9f0123308f63abc11;p=dbsrgits%2FSQL-Translator.git Use three-arg open. --- diff --git a/lib/SQL/Translator/Producer/Diagram.pm b/lib/SQL/Translator/Producer/Diagram.pm index 34cd56b..939a1bf 100644 --- a/lib/SQL/Translator/Producer/Diagram.pm +++ b/lib/SQL/Translator/Producer/Diagram.pm @@ -505,7 +505,7 @@ sub produce { # debug("imap file = '$imap_file'"); if ( $imap_file && @imap_coords ) { - open my $fh, ">$imap_file" or die "Can't write '$imap_file': $!\n"; + open my $fh, '>', $imap_file or die "Can't write '$imap_file': $!\n"; print $fh qq[\n]. qq[\n]; for my $rec ( @imap_coords ) { @@ -520,7 +520,7 @@ sub produce { # Print the image. # if ( $out_file ) { - open my $fh, ">$out_file" or die "Can't write '$out_file': $!\n"; + open my $fh, '>', $out_file or die "Can't write '$out_file': $!\n"; print $fh $gd->$output_type; close $fh; } @@ -537,6 +537,6 @@ sub produce { =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE. +Ken Youens-Clark Ekclark@cpan.orgE. =cut