Permalink
Browse files

[GH #921] cygwin Fix Could not create //usr/local/share/parrot/4.11.0…

…-devel/MANIFEST

catdir with "" creates //.
  • Loading branch information...
1 parent fb5f016 commit 73c6d3287051da1083264f9801e88e135890800f Reini Urban committed Jan 10, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/Parrot/Install.pm
View
@@ -298,7 +298,9 @@ sub install_files {
my ($src, $dest, $mode, $manifest);
print("Installing ...\n");
if (!$dryrun) {
- my $destdatadir= File::Spec->catdir( $destdir, $datadir, $versiondir);
+ my $destdatadir = $destdir
+ ? File::Spec->catdir( $destdir, $datadir, $versiondir)
+ : File::Spec->catdir( $datadir, $versiondir);
my $fname = File::Spec->catdir( $destdatadir, "MANIFEST" . ($type ? ".".$type : '') );
open $manifest, ">", $fname or die "Could not create $fname\n";
print "$fname\n";

0 comments on commit 73c6d32

Please sign in to comment.