pick up Ricardo's patch, so sylprint will also work with other perl versions
[claws.git] / tools / sylprint.pl
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; }