]>
Commit | Line | Data |
---|---|---|
6867e637 ER |
1 | --- pisg-0.72/pisg~ 2008-02-13 22:40:25.000000000 +0200 |
2 | +++ pisg-0.72/pisg 2008-12-18 23:49:05.560422441 +0200 | |
3 | @@ -24,16 +24,7 @@ | |
4 | ||
5 | sub main | |
6 | { | |
7 | - my $script_dir = $0; | |
8 | - | |
9 | - # If the script was executed as ./pisg - then we just remove | |
10 | - # everything after the last slash, if it was executed as 'perl pisg' | |
11 | - # we assume that we are executing in the current dir. | |
12 | - if ($script_dir =~ m/\/[^\/]*$/) { | |
13 | - $script_dir =~ s/\/[^\/]*$//; | |
14 | - } else { | |
15 | - $script_dir = "."; | |
16 | - } | |
17 | + my $script_dir = '/usr/share/pisg'; | |
18 | ||
19 | if (!-t STDOUT) { # we are not writing to a terminal | |
20 | push @ARGV, "--silent"; |