X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=OSX%2Fseticon.pl;h=fb5dc71fe777db8e13496b130a1f7bd1d089cd68;hp=e62bb29145c9c6a0ce3c084eade9f78b6635ff89;hb=4361b69d3178d7fc98d0388f9a223af6c2651aba;hpb=d6b0217f2417bd19187f0ebc389d6c5c2233b11c

diff --git a/OSX/seticon.pl b/OSX/seticon.pl
index e62bb291..fb5dc71f 100755
--- a/OSX/seticon.pl
+++ b/OSX/seticon.pl
@@ -18,7 +18,7 @@ use strict;
 use File::Temp;
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my ($version) = ('$Revision: 1.5 $' =~ m/\s(\d[.\d]+)\s/s);
+my ($version) = ('$Revision: 1.6 $' =~ m/\s(\d[.\d]+)\s/s);
 
 my $verbose = 0;
 
@@ -78,6 +78,12 @@ sub set_icon ($$) {
   exit ($exit) if $exit;
 }
 
+sub error($) {
+  my ($err) = @_;
+  print STDERR "$progname: $err\n";
+  exit 1;
+}
+
 sub usage() {
   print "Usage: $progname -d source [file...]\n";
   exit 1;