diff options
Diffstat (limited to 'jobqueue.pl')
-rwxr-xr-x | jobqueue.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/jobqueue.pl b/jobqueue.pl index f6722467c..310cf4d26 100755 --- a/jobqueue.pl +++ b/jobqueue.pl @@ -12,10 +12,11 @@ use warnings; use Cwd qw(abs_path); use File::Basename; + BEGIN { - # Untaint the abs_path. - my ($a) = abs_path($0) =~ /^(.*)$/; - chdir dirname($a); + # Untaint the abs_path. + my ($a) = abs_path($0) =~ /^(.*)$/; + chdir dirname($a); } use lib qw(. lib); |