diff options
| author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-11-19 08:40:28 +0000 |
|---|---|---|
| committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-11-19 08:40:28 +0000 |
| commit | dee899c8ff99fe26e308f713e728db4dff2882c7 (patch) | |
| tree | 93ac25cea28e28f3892623e98e3657d2597bb550 /bin/MakeProjectCreator/modules/GUID.pm | |
| parent | 33dcb4d2015f14836d30cb0cd9210a1b9fd25107 (diff) | |
| download | ATCD-Validator_20021119.tar.gz | |
This commit was manufactured by cvs2svn to create tagValidator_20021119
'Validator_20021119'.
Diffstat (limited to 'bin/MakeProjectCreator/modules/GUID.pm')
| -rw-r--r-- | bin/MakeProjectCreator/modules/GUID.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/MakeProjectCreator/modules/GUID.pm b/bin/MakeProjectCreator/modules/GUID.pm index 015db9c2a47..944813a1543 100644 --- a/bin/MakeProjectCreator/modules/GUID.pm +++ b/bin/MakeProjectCreator/modules/GUID.pm @@ -11,6 +11,7 @@ package GUID; # ************************************************************ use strict; +use Cwd; # ************************************************************ # Subroutine Section @@ -28,8 +29,7 @@ sub generate { my($self) = shift; my($out) = shift; my($in) = shift; - my($cwd) = shift; - my($chash) = $self->hash($cwd); + my($chash) = $self->hash(getcwd()); my($nhash) = $self->hash($out); my($ihash) = $self->hash($in); my($val) = 0xfeca1bad; |