diff options
author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-11 19:41:35 +0000 |
---|---|---|
committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-11 19:41:35 +0000 |
commit | d31cbc9eac688d6a964f8dc725a0939293abf546 (patch) | |
tree | 5c6847bba0e6cc8be3af9583db4a2801a7f893b6 /bin | |
parent | 4262012122d3bfb712ebd805dd546f61a6574a2d (diff) | |
download | ATCD-d31cbc9eac688d6a964f8dc725a0939293abf546.tar.gz |
run the directory mode value through eval, to convert it from octal to
decimal, if necessary.
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/create_ace_build | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/create_ace_build b/bin/create_ace_build index b42d07b4673..965101b9865 100755 --- a/bin/create_ace_build +++ b/bin/create_ace_build @@ -65,7 +65,7 @@ while ($#ARGV >= 0 && $ARGV[0] =~ /^-/) { $verbose = 1; } elsif ($ARGV[0] eq '-d') { if ($ARGV[1] =~ /^\d+$/) { - $directory_mode = $ARGV[1]; shift; + $directory_mode = eval ($ARGV[1]); shift; } else { warn "$0: must provide argument for -d option\n"; die $usage; |