Re: Beta3: Fix bad warning on bitwise ops

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index d60a4dd..da71458 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -75,7 +75,7 @@ if ($d_shrplib) {
            "  (Installing other things anyway.)\n";
     } else {
        mkpath($shrpdir, 1, 0777);
-       -w $shrpdir     || die "$shrpdir is not writable by you\n";
+       -w $shrpdir     || $nonono || die "$shrpdir is not writable by you\n";
        &cmd("cp libperl*.$so* $shrpdir");
     }
 }