diff options
| author | e78783 <fungcheokyin@gmail.com> | 2022-05-29 09:59:54 +0800 |
|---|---|---|
| committer | e78783 <fungcheokyin@gmail.com> | 2022-05-29 09:59:54 +0800 |
| commit | 6a9cfc54dddd732c9cb73ec422e215aceea1d303 (patch) | |
| tree | 38a614e4f01b0aeca09eccf48cabae224c59716e /challenge-166 | |
| parent | ea45adacb55bf76c89cef67e385a71277a16369b (diff) | |
| download | perlweeklychallenge-club-6a9cfc54dddd732c9cb73ec422e215aceea1d303.tar.gz perlweeklychallenge-club-6a9cfc54dddd732c9cb73ec422e215aceea1d303.tar.bz2 perlweeklychallenge-club-6a9cfc54dddd732c9cb73ec422e215aceea1d303.zip | |
Week 166
Diffstat (limited to 'challenge-166')
| -rw-r--r-- | challenge-166/cheok-yin-fung/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-166/cheok-yin-fung/perl/ch-2.pl b/challenge-166/cheok-yin-fung/perl/ch-2.pl index 6e724075b3..7bbdde7140 100644 --- a/challenge-166/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-166/cheok-yin-fung/perl/ch-2.pl @@ -6,10 +6,10 @@ use warnings; use Cwd; use List::Util qw/uniqstr any/; -kd(@ARGV) if defined($ARGV[1]); - my $TEMP_CWD = getcwd; +kd(@ARGV) if defined($ARGV[1]); + sub kd { |