pick up Ricardo's patch, so sylprint will also work with other perl versions
authorAlfons Hoogervorst <alfons@proteus.demon.nl>
Tue, 8 Jan 2002 19:34:37 +0000 (19:34 +0000)
committerAlfons Hoogervorst <alfons@proteus.demon.nl>
Tue, 8 Jan 2002 19:34:37 +0000 (19:34 +0000)
ChangeLog.claws
tools/sylprint.pl

index 86ed2258f2ed41253f00b9e6121a1540d93494a9..5515df7114864e01d27c70fbf8e598045b928c14 100644 (file)
@@ -6,6 +6,9 @@
        * src/sourcewindow.c
                bring in Hiro's last 0.7.0 wm class fixes
 
+       * tools/sylprint.pl
+               bring in Ricardo's fix for sylprint script 
+
 2002-01-07 [christoph] 0.6.6claws43
 
        * src/mh.c
index bcb4a67a2145d2320fbd6e211612b4f5bf3252e8..993aa7359bf6aad2b62a6084e872b11813b21b5a 100644 (file)
@@ -36,10 +36,10 @@ $a = 1;
 # get user config
 if (defined($ARGV[1]) && $ARGV[1] eq '-r') { $a++; }
 else {
-       @spp = split('/',$0);
-       delete $spp[(scalar @spp) - 1];
-       $spp = join('/',@spp);
-       $rcf="$spp/$rc";
+       @spp = split('/',$0); 
+       $spp[$#spp] = ''; 
+       $spp = join('/',@spp);  
+       $rcf="$spp$rc"; 
        if (-x $rcf) { do $rcf; }
        $rcf="$ENV{'HOME'}/.sylpheed/$rc";
        if (-x $rcf) { do $rcf; }