#755: 'make install-dev' assumes "modern" File::Path
----------------------+-----------------------------------------------------
Reporter: doughera | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: install | Version: 1.2.0
Severity: medium | Keywords:
Lang: | Patch:
Platform: |
----------------------+-----------------------------------------------------
Changes (by jkeenan):
* cc: mikehh, util (added)
Comment:
Replying to [ticket:755 doughera]:
Andy D: Util applied this patch two days ago:
{{{
r39589 | Util | 2009-06-16 10:22:35 -0400 (Tue, 16 Jun 2009) | 1 line
Index: lib/Parrot/Install.pm
===================================================================
--- lib/Parrot/Install.pm (revision 39419)
+++ lib/Parrot/Install.pm (working copy)
@@ -173,12 +173,16 @@
=cut
sub create_directories {
- my($destdir, $directories) = @_;
+ my ( $destdir, $directories ) = @_;
- my @dirs_created = mkpath(
- ( grep { ! -d } map { $destdir . $_ } keys %$directories ),
- { mode => 0777 },
- );
+ my @dirs_to_create = grep { ! -d } map { $destdir . $_ } sort keys
%{$directories};
+
+ my $print_the_dirs = 0;
+ my $mode = oct('0777');
+
+ # We must use the legacy interface to support File::Path versions
before 2.01.
+ my @dirs_created = mkpath( \...@dirs_to_create, $print_the_dirs, $mode
);
+
return 1;
}
}}}
Does it resolve your immediate problem on Solaris?
mikehh: Can you install with this?
If so, then I will try to standardize throughout.
Thank you very much.[[BR]]
kid51
--
Ticket URL: <https://trac.parrot.org/parrot/ticket/755#comment:4>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets
