This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove hard-coded paths to /pro/3gl/CPAN
authorDominic Hargreaves <dom@earth.li>
Thu, 12 Oct 2017 17:03:08 +0000 (19:03 +0200)
committerDominic Hargreaves <dom@earth.li>
Thu, 12 Oct 2017 21:13:13 +0000 (23:13 +0200)
.gitignore
U/ln-all.pl
U/mkglossary
bin/dual.pl
bin/jmake
bin/mconfig
bin/metaconfig
bin/metagrep
bin/metalint
bin/metaxref
bin/mlint

index d2370f6..83b32b1 100644 (file)
@@ -5,3 +5,4 @@ dist-3.5-20
 dist-3.5-20.txz
 .*.swp
 .#*
+perl
index c8f39d3..7308759 100755 (executable)
@@ -10,8 +10,9 @@ use strict;
 use warnings;
 
 use File::Copy;
+use FindBin;
 
-my $meta = "/pro/3gl/CPAN/metaconfig";
+my $meta = "$FindBin::Bin/../";
 my $perl = "/pro/3gl/CPAN/perl-current";
 # the files that metaconfig might (probably will) overwrite:
 my @safe = qw( Configure config_h.SH );
@@ -26,7 +27,7 @@ for (@safe) {
     copy "$perl/$_", $_;
     }
 
-@ARGV = ("/pro/3gl/CPAN/bin/mconfig -v -m -O 2>&1 |");
+@ARGV = ("$FindBin::Bin/mconfig -v -m -O 2>&1 |");
 while (<>) {
     s{^\s+$perl/U}{} or next;
     chomp;
index 0d7288e..018d343 100755 (executable)
@@ -5,10 +5,12 @@ use warnings;
 
 use File::Basename;
 
-# WARNING:  This is site-specific.  Change to the location
-# where you have installed dist-3.0PL70.
-my @std_units = glob ("/pro/3gl/CPAN/lib/dist/U/*.U");
-my $PWD       =       "/pro/3gl/CPAN/perl";
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+
+my @std_units = glob ("$p5_metaconfig_base/U/*.U");
+my $PWD       =       "$p5_metaconfig_base/perl";
 
 -d "U" and chdir "U";
 my @perl_units = glob ("$PWD/U/*/*.U");
index 33225e0..c44b60d 100755 (executable)
@@ -11,10 +11,13 @@ use warnings;
 
 use Cwd;
 use File::Find;
+use FindBin;
 
 my $pdir = getcwd;
-$< == 203 && -d "/pro/3gl/CPAN" and chdir "/pro/3gl/CPAN/perl";
--d "Porting" or die "You're not in the perl5 root folder\n";
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+chdir "$p5_metaconfig_base/perl" ||
+    die "perl/ directory missing in $p5_metaconfig_base\n";
 
 use vars qw(%Modules %Maintainers);
 require "Porting/Maintainers.pl";
index 77281ef..cd9293f 100755 (executable)
--- a/bin/jmake
+++ b/bin/jmake
@@ -2,6 +2,9 @@
        eval 'exec perl -S $0 "$@"'
                if $runnning_under_some_shell;
 
+use FindBin;
+$p5_metaconfig_base = "$FindBin::Bin/../";
+
 # $Id: jmake.SH 20 2008-01-04 23:14:00Z rmanfredi $
 #
 #  Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
@@ -49,7 +52,7 @@
 # Baseline for dist 3.0 netwide release.
 #
 
-$dir = '/pro/3gl/CPAN/lib/dist/files';
+$dir = "$p5_metaconfig_base/dist/files";
 $cpp = '/usr/bin/cpp';
 $version = '3.5';
 $patchlevel = '0';
index f918d1e..9cea775 100755 (executable)
@@ -2,14 +2,12 @@
 
 use sort "stable";
 BEGIN { $ENV{LC_ALL} = "C"; }
-chdir "/pro/3gl/CPAN/perl";
-{   my @Cc = qw( Configure config_h.SH );
-    system "chown merijn @Cc";
-    chmod 0775, @Cc;
-    #-d "merijn" or mkdir "merijn";
-    #system "cp -f Configure config_h.SH Porting/Glossary Porting/config.sh merijn/";
-    system "ls", "-l", @Cc;
-    }
+
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+chdir "$p5_metaconfig_base/perl" ||
+    die "perl/ directory missing in $p5_metaconfig_base\n";
 
 # $Id: mconfig.SH 22 2008-05-28 08:01:59Z rmanfredi $
 #
@@ -46,7 +44,7 @@ chdir "/pro/3gl/CPAN/perl";
 
 # Perload ON
 
-$MC = '/pro/3gl/CPAN/lib/dist';
+$MC = "$p5_metaconfig_base/dist";
 $version = '3.5';
 $patchlevel = '0';
 $grep = '/usr/bin/grep';
index 5394878..fc67805 100755 (executable)
@@ -1,11 +1,10 @@
 #!/usr/bin/perl
 
-chdir "/pro/3gl/CPAN/perl";
-system "chown merijn Configure config_h.SH";
-chmod 0775, "Configure", "config_h.SH";
-#-d "merijn" or mkdir "merijn";
-#system "cp -f Configure config_h.SH Porting/Glossary Porting/config.sh merijn/";
-system "ls -l Configure config_h.SH";
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+chdir "$p5_metaconfig_base/perl" ||
+    die "perl/ directory missing in $p5_metaconfig_base\n";
 
 #
 # This perl program uses dynamic loading [generated by perload]
@@ -48,7 +47,7 @@ $ENV{LC_ALL} = 'C';
 
 # Perload ON
 
-$MC = '/pro/3gl/CPAN/lib/dist';
+$MC = "$p5_metaconfig_base/dist";
 $version = '3.5';
 $patchlevel = '0';
 $grep = '/usr/bin/grep';
index ee100d9..aa7783d 100755 (executable)
@@ -13,8 +13,9 @@ GetOptions (
     "F|fixed!" => \$opt_F,
     ) or die "usage: metagrep [-w] [-l] [-F] pattern\n";
 
-use Cwd qw(getcwd abs_path);
+use Cwd qw(getcwd);
 use File::Find;
+use FindBin;
 
 my $pat = shift or die "usage: metagrep pattern\n";
 $opt_F and $pat = quotemeta $pat;
@@ -22,8 +23,7 @@ $opt_w and $pat = "\\b$pat\\b";
 $pat = qr/$pat/i;
 
 my $cwd    = getcwd;
-my $mcpath = abs_path "/pro/3gl/CPAN/metaconfig" or die "cannot cd metaconfig\n";
-
+my $mcpath = "$FindBin::Bin/../";
 my $onmeta = $cwd =~ m{CPAN/meta[^/]+$} ? 1 : 0;
 
 my @dir = ($mcpath, "$mcpath/dist/U");
index 5a19635..79cc786 100755 (executable)
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 
-chdir "/pro/3gl/CPAN/perl";
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+chdir "$p5_metaconfig_base/perl" ||
+    die "perl/ directory missing in $p5_metaconfig_base\n";
 
 #
 # This perl program uses dynamic loading [generated by perload]
@@ -36,7 +40,7 @@ $ENV{LC_ALL} = 'C';
 
 # Perload ON
 
-$MC = '/pro/3gl/CPAN/lib/dist';
+$MC = "$p5_metaconfig_base/dist";
 $version = '3.5';
 $patchlevel = '0';
 $revision = '';
index 56f67f2..ad952f5 100755 (executable)
@@ -2,6 +2,10 @@
        eval "exec perl -S $0 $*"
                if $running_under_some_shell;
 
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+
 #
 # This perl program uses dynamic loading [generated by perload]
 #
@@ -36,7 +40,7 @@ $ENV{LC_ALL} = 'C';
 
 # Perload ON
 
-$MC = '/pro/3gl/CPAN/lib/dist';
+$MC = "$p5_metaconfig_base/dist";
 $version = '3.5';
 $patchlevel = '0';
 $grep = '/usr/bin/grep';
index 263b4a6..33315dc 100755 (executable)
--- a/bin/mlint
+++ b/bin/mlint
@@ -1,7 +1,12 @@
 #!/usr/bin/perl
 
 BEGIN { $ENV{LC_ALL} = "C"; }
-chdir "/pro/3gl/CPAN/perl";
+
+use FindBin;
+
+$p5_metaconfig_base = "$FindBin::Bin/../";
+chdir "$p5_metaconfig_base/perl" ||
+    die "perl/ directory missing in $p5_metaconfig_base\n";
 
 # $Id: mlint.SH 22 2008-05-28 08:01:59Z rmanfredi $
 #
@@ -31,7 +36,7 @@ chdir "/pro/3gl/CPAN/perl";
 
 # Perload ON
 
-$MC = '/pro/3gl/CPAN/lib/dist';
+$MC = "$p5_metaconfig_base/dist";
 $version = '3.5';
 $patchlevel = '0';
 $grep = '/usr/bin/grep';