Re: Inline-0.40-TRIAL6

[Marcel Grunauer]

Hi Brian!

Inline-0.40-TRIAL6 passes 'make test' on OS X...

... after this patch:

diff -ruN Inline-0.40-TRIAL6.orig/Inline.pm Inline-0.40-TRIAL6/Inline.pm
--- Inline-0.40-TRIAL6.orig/Inline.pm   Wed May 23 11:00:37 2001
+++ Inline-0.40-TRIAL6/Inline.pm        Wed May 23 17:23:33 2001
@@ -1218,13 +1218,13 @@
      elsif (defined $cwd and $cwd and
            -d $cwd and
            -w $cwd and
-          _mkdir("$cwd/_Inline/", 0777)) {
+          _mkdir("$cwd/_Inline", 0777)) {
         $temp_dir = "$cwd/_Inline";
      }
      elsif (defined $bin and $bin and
            -d $bin and
            -w $bin and
-          _mkdir("$bin/_Inline/", 0777)) {
+          _mkdir("$bin/_Inline", 0777)) {
         $temp_dir = "$bin/_Inline";
      }

@@ -1237,6 +1237,7 @@
      my $dir = shift;
      my $mode = shift || 0777;
      ($dir) = ($dir =~ /(.*)/) if UNTAINT;
+    chop $dir if substr($dir, -1) eq '/';
      return mkdir($dir, $mode);
  }


Hint, hint :)

Marcel

--
$ perl -we time
Useless use of time in void context at -e line 1.