From fe29da7c36676daeee95875a30bd2e382d86edbe Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Fri, 30 Jan 2015 12:26:00 +0200 Subject: [PATCH] Use getcwd instead of cwd --- t/01-jobs.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/01-jobs.t b/t/01-jobs.t index aa715e1..742a797 100644 --- a/t/01-jobs.t +++ b/t/01-jobs.t @@ -5,7 +5,7 @@ use warnings; use Gruntmaster::Daemon; -use Cwd qw/cwd/; +use Cwd qw/getcwd/; use File::Basename qw/fileparse/; use File::Slurp qw/read_file/; use File::Temp qw/tempdir/; @@ -40,7 +40,7 @@ log4perl.appender.stderr.layout.ConversionPattern = [\%d] [\%F{1}:\%M{1}:\%L] [\ CONF Log::Log4perl->init(\$log_conf); -$ENV{PATH} = cwd . ':' . $ENV{PATH}; +$ENV{PATH} = getcwd . ':' . $ENV{PATH}; umask 0022; sub check_job{ @@ -87,7 +87,7 @@ for my $problem (@problems) { $meta->{files}{prog}{content} = read_file "$source/$meta->{files}{prog}{name}"; $meta = merge $meta, $pbmeta; note "Running $meta->{test_name} ($meta->{test_description})..."; - my $savedcwd = cwd; + my $savedcwd = getcwd; chdir $tempdir; Gruntmaster::Daemon::process $meta; chdir $savedcwd; -- 2.30.2