This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We do *not* want to use mconfig from mono-web :(
[metaconfig.git] / U / ln-all.pl
index bf3ff96..fc774db 100755 (executable)
@@ -1,6 +1,6 @@
 #!/pro/bin/perl
 
-# (c)'06 H.Merijn Brand [ 09 Apr 2006 ]
+# (c)'11 H.Merijn Brand [ 26 Aug 2011 ]
 
 # Small script to regenerate the links in U/all, that should
 # represent all the modules used in the current Configure
@@ -26,12 +26,13 @@ for (@safe) {
     copy "$perl/$_", $_;
     }
 
-@ARGV = ("metaconfig -v -m 2>&1 |");
+@ARGV = ("/pro/3gl/CPAN/bin/mconfig -v -m -O 2>&1 |");
 while (<>) {
     s{^\s+$perl/U}{} or next;
     chomp;
     (my $f = $_) =~ s{.*/}{};
-    symlink "../$_", $f;
+    (my $l = "../$_") =~ s{//+}{/}g;
+    symlink $l, $f;
     }
 
 for (qw( Configure config_h.SH )) {