X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=OSX%2Fupdate-info-plist.pl;h=14b1494a14e350ea17ac267e4bc716130032b464;hp=998c452399efc9d5741a9159614967574bd5681e;hb=c141c2b05e374757b6499d12bb8a6d4d943b1529;hpb=6f5482d73adb0165c0130bb47d852644ab0c4869

diff --git a/OSX/update-info-plist.pl b/OSX/update-info-plist.pl
index 998c4523..14b1494a 100755
--- a/OSX/update-info-plist.pl
+++ b/OSX/update-info-plist.pl
@@ -23,7 +23,7 @@ require 5;
 use strict;
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.21 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.22 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 $ENV{PATH} = "/usr/local/bin:$ENV{PATH}";   # for seticon
 
@@ -175,9 +175,9 @@ sub update_saver_xml($$) {
     print STDERR "$progname: $filename: unchanged\n" if ($verbose > 1);
   } else {
     my $file_tmp = "$filename.tmp";
-    open(OUT, ">$file_tmp") || error ("$file_tmp: $!");
-    print OUT $body || error ("$file_tmp: $!");
-    close OUT || error ("$file_tmp: $!");
+    open (my $out, '>', $file_tmp) || error ("$file_tmp: $!");
+    print $out $body || error ("$file_tmp: $!");
+    close $out || error ("$file_tmp: $!");
 
     if (!rename ("$file_tmp", "$filename")) {
       unlink "$file_tmp";
@@ -269,9 +269,9 @@ sub update($) {
       print STDERR "$progname: $filename: unchanged\n" if ($verbose > 1);
     } else {
       my $file_tmp = "$filename.tmp";
-      open(OUT, ">$file_tmp") || error ("$file_tmp: $!");
-      print OUT $plist || error ("$file_tmp: $!");
-      close OUT || error ("$file_tmp: $!");
+      open (my $out, '>', $file_tmp) || error ("$file_tmp: $!");
+      print $out $plist || error ("$file_tmp: $!");
+      close $out || error ("$file_tmp: $!");
 
       if (!rename ("$file_tmp", "$filename")) {
         unlink "$file_tmp";