Changeset 13232

Timestamp:

May 3, 2007, 5:39:18 PM (19 years ago)

Author:

jhoblitt

Message:

use Cwd() instead of ENV{PWD}

Location:

trunk

Files:

• Nebulous-Server/Build.PL (modified) (5 diffs)
• Nebulous/Build.PL (modified) (5 diffs)

trunk/Nebulous-Server/Build.PL

@@ -8 +8 @@
 my $class = $build_pkg->subclass(code => <<'EOF');
 use Apache::TestMB;
+use Cwd;
 @ISA = qw( Apache::TestMB );
 
@@ -17 +18 @@
     $self->SUPER::ACTION_code(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -32 +33 @@
     $self->SUPER::ACTION_build(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -49 +50 @@
     $self->SUPER::ACTION_install(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -62 +63 @@
     $self->SUPER::ACTION_clean(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 

trunk/Nebulous/Build.PL

@@ -8 +8 @@
 my $class = $build_pkg->subclass(code => <<'EOF');
 use Apache::TestMB;
+use Cwd;
 @ISA = qw( Apache::TestMB );
 
@@ -17 +18 @@
     $self->SUPER::ACTION_code(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -32 +33 @@
     $self->SUPER::ACTION_build(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -49 +50 @@
     $self->SUPER::ACTION_install(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;
 
@@ -62 +63 @@
     $self->SUPER::ACTION_clean(@_);
 
-    my $old_pwd = $ENV{PWD};
+    my $old_pwd = getcwd();
     chdir $pkg_dir;