Changeset 25893

Timestamp:

Oct 18, 2009, 12:21:35 PM (17 years ago)

Author:

eugene

Message:

add function to show current INC path

File:

• trunk/psconfig/pscheckperl (modified) (4 diffs)

trunk/psconfig/pscheckperl

@@ -20 +20 @@
         shift; shift; next;
     }
+    if ($ARGV[0] eq "-path")  { &list_include_path (); }
     if ($ARGV[0] eq "-h")     { &usage (); }
     if ($ARGV[0] eq "help")   { &usage (); }
@@ -110 +111 @@
     if (-e "Build.PL") {
         # vsystem("perl Build.PL --install_path lib=$perldir ");
-        vsystem("perl Build.PL --prefix $prefix");
+        vsystem("perl Build.PL --install_base $prefix");
         vsystem("Build");
         vsystem("Build install");
@@ -146 +147 @@
 
 sub usage {
-    print STDERR "USAGE: pscheckperl [-version] [-build]\n";
+    print STDERR "USAGE: pscheckperl [-version] [-build] [-path]\n";
     exit 2;
 }
@@ -165 +166 @@
     exit 2;
 }
+
+sub list_include_path {
+    foreach $path (@INC) {
+        print STDERR "$path\n";
+    }
+    exit 2;
+}