16799N/Adiff -Nurp -x '*~' -x '*.orig' rss-glx_0.9.0/utils/rss-glx_install.pl rss-glx_0.9.0/utils/rss-glx_install.pl

16799N/A--- rss-glx_0.9.0/utils/rss-glx_install.pl 2009-05-27 17:41:41.038691000 -0700

16799N/A+++ rss-glx_0.9.0/utils/rss-glx_install.pl 2009-05-27 17:41:46.423704000 -0700

16799N/A@@ -1,10 +1,10 @@

16799N/A #!/usr/bin/env perl

16799N/A use strict;

16799N/A

16799N/A-if (`ps x | grep ' xscreensaver ' | grep -v grep`) {

16799N/A- print "XScreenSaver seems to be running. Exit it before running this script.\n";

16799N/A- exit;

16799N/A-}

16799N/A+#if (`ps x | grep ' xscreensaver ' | grep -v grep`) {

16799N/A+# print "XScreenSaver seems to be running. Exit it before running this script.\n";

16799N/A+# exit;

16799N/A+#}

16799N/A

16799N/A my $screensavers = { };

16799N/A

16799N/A@@ -31,15 +31,15 @@ $screensavers->{'lorenz'} = ' GL:

16799N/A $screensavers->{'drempels'} = ' GL: "Drempels" drempels --root \\n\\';

16799N/A $screensavers->{'feedback'} = ' GL: "Feedback" feedback --root \\n\\';

16799N/A

16799N/A-open XSCREENSAVER, "$ENV{'HOME'}/.xscreensaver";

16799N/A+open XSCREENSAVER, "$ARGV[0]";

16799N/A my @xscreensaver_config_file = <XSCREENSAVER>;

16799N/A close XSCREENSAVER;

16799N/A

16799N/A-open XSCREENSAVER, ">$ENV{'HOME'}/.xscreensaver";

16799N/A+open XSCREENSAVER, ">$ARGV[0]";

16799N/A

16799N/A my $programs_section_flag = 0;

16799N/A foreach my $line (@xscreensaver_config_file) {

16799N/A- if ($line =~ /^programs:/) {

16799N/A+ if ($line =~ /^\*programs:/) {

16799N/A $programs_section_flag = 1;

16799N/A } elsif ($programs_section_flag) {

16799N/A if ($line =~ /\\\s+/) {