home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / PERL / PERL-4.036 / PERL-4 / perl-4.036 / patch-pwd.udf next >
Encoding:
Text File  |  1994-07-20  |  647 b   |  34 lines
  1. --- t/comp/cpp.t~    Mon Feb  8 20:37:43 1993
  2. +++ t/comp/cpp.t    Mon Jan 10 14:29:00 1994
  3. @@ -44,7 +44,7 @@
  4.  print TRY '#define OK "ok 3\n"' . "\n";
  5.  close TRY;
  6.  
  7. -$pwd=`pwd`;
  8. +$pwd=`'pwd'`;
  9.  $pwd =~ s/\n//;
  10.  $x = `./perl -P Comp.cpp.tmp`;
  11.  print $x;
  12. --- t/io/fs.t~    Mon Feb  8 20:36:34 1993
  13. +++ t/io/fs.t    Mon Jan 10 14:30:00 1994
  14. @@ -4,7 +4,7 @@
  15.  
  16.  print "1..22\n";
  17.  
  18. -$wd = `pwd`;
  19. +$wd = `'pwd'`;
  20.  chop($wd);
  21.  
  22.  `rm -f tmp 2>/dev/null; mkdir tmp 2>/dev/null`;
  23. --- t/op/stat.t~    Mon Feb  8 20:36:22 1993
  24. +++ t/op/stat.t    Mon Jan 10 14:31:00 1994
  25. @@ -4,7 +4,7 @@
  26.  
  27.  print "1..56\n";
  28.  
  29. -chop($cwd = `pwd`);
  30. +chop($cwd = `'pwd'`);
  31.  
  32.  $DEV = `ls -l /dev`;
  33.  
  34.