projects
/
xscreensaver
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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;
my $verbose = 0;
@@
-78,6
+78,12
@@
sub set_icon ($$) {
exit ($exit) if $exit;
}
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;
sub usage() {
print "Usage: $progname -d source [file...]\n";
exit 1;