ChangeLogTag: Fri Mar 7 06:35:09 2003 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 5 insertions, 6 deletions

diff --git a/modules/Parser.pm b/modules/Parser.pm
index 8a7aed72..342784c4 100644
--- a/modules/Parser.pm
+++ b/modules/Parser.pm
@@ -13,8 +13,6 @@ package Parser;
 use strict;
 use FileHandle;
 
-my($cwd) = Cwd::getcwd();
-
 # ************************************************************
 # Subroutine Section
 # ************************************************************
@@ -22,6 +20,7 @@ my($cwd) = Cwd::getcwd();
 sub new {
   my($class)  = shift;
   my($self)   = bless {'line_number' => 0,
+                       'cwd'         => Cwd::getcwd(),
                       }, $class;
   return $self;
 }
@@ -33,10 +32,10 @@ sub cd {
   my($status) = chdir($dir);
   if ($status && $dir ne '.') {
     if ($dir =~ /^\// || $dir =~ /^[A-Za-z]:/) {
-      $cwd = $dir;
+      $self->{'cwd'} = $dir;
     }
     else {
-      $cwd .= "/$dir";
+      $self->{'cwd'} .= "/$dir";
     }
   }
   return $status;
@@ -44,8 +43,8 @@ sub cd {
 
 
 sub getcwd {
-  #my($self) = shift;
-  return $cwd;
+  my($self) = shift;
+  return $self->{'cwd'};
 }