From http://www.jwz.org/xscreensaver/xscreensaver-5.37.tar.gz

[xscreensaver] / OSX / seticon.pl

diff --git a/OSX/seticon.pl b/OSX/seticon.pl
index e62bb29145c9c6a0ce3c084eade9f78b6635ff89..fb5dc71fe777db8e13496b130a1f7bd1d089cd68 100755 (executable)
--- 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;