diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-03-13 15:37:03 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-03-13 15:37:03 +0100 |
commit | 6b8fa6c161e88a9054cdcef49aa76aa857ed9a72 (patch) | |
tree | fd5e28edc46ae33ef07733357a011aa29e6ace75 /jobqueue.pl | |
parent | 294b3090c1eac02ed1d561ddb797814bd3537bfb (diff) | |
download | bugzilla-6b8fa6c161e88a9054cdcef49aa76aa857ed9a72.tar.gz bugzilla-6b8fa6c161e88a9054cdcef49aa76aa857ed9a72.tar.xz |
Bug 1441181 - Step 4 - Re-implement subprocess code with IO::Async
Diffstat (limited to 'jobqueue.pl')
-rwxr-xr-x | jobqueue.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/jobqueue.pl b/jobqueue.pl index f5541e0fb..d9791b3d4 100755 --- a/jobqueue.pl +++ b/jobqueue.pl @@ -10,12 +10,13 @@ use 5.10.1; use strict; use warnings; -use File::Basename; -use File::Spec; +use File::Basename qw(dirname); +use File::Spec::Functions qw(catdir rel2abs); + BEGIN { require lib; - my $dir = File::Spec->rel2abs(dirname(__FILE__)); - lib->import($dir, File::Spec->catdir($dir, 'lib'), File::Spec->catdir($dir, qw(local lib perl5))); + my $dir = rel2abs( dirname(__FILE__) ); + lib->import( $dir, catdir( $dir, 'lib' ), catdir( $dir, qw(local lib perl5) ) ); chdir $dir or die "chdir $dir failed: $!"; } |