Changeset 34087 for trunk/psconfig/pscheckmods

Timestamp:

Jun 26, 2012, 11:39:02 AM (14 years ago)

Author:

eugene

Message:

add -no-as-needed and -debug-build options to psbuild; add -bootstrap current option; add more verbosity and debug options to pscheckmods; add -clean option to pscheckperl; set LDFLAGS with no-as-needed if we are using Ubuntu with gcc 4.6.3; update Module::Build to version 0.3601 (note: 0.40 requires updates to other modules); update Params:Validate to 0.96 to deal with change to "ref" command; update DBI and DBD:mysql to handle change of xcode namespace; use linker SEARCH_DIR and cpp include information to set hidden search paths

File:

• trunk/psconfig/pscheckmods (modified) (6 diffs)

trunk/psconfig/pscheckmods

@@ -1 +1 @@
 #!/usr/bin/env perl
 
+$DEBUG = 0;
 $VERBOSE = 0;
 if (@ARGV > 2 && $ARGV[0] eq "-v") {
@@ -10 +11 @@
 if ($VERBOSE) { print STDERR "checking in @INC\n"; }
 
-# &detailed_require ($ARGV[0]);
+if ($DEBUG) { &detailed_require ($ARGV[0]);}
 
 $x = eval "require $ARGV[0]; 1";
@@ -18 +19 @@
     &detailed_require ($ARGV[0]);
 }
-if ($VERBOSE) { print "x: $x\n"; }
+if ($VERBOSE) { print "result of require: $x\n"; }
 
 $version = eval "\$$ARGV[0]::VERSION";
@@ -34 +35 @@
     $filename =~ s|::|/|g;
     $filename = "$filename.pm";
-    print "$filename\n";
+    print "\ntesting : $filename\n" if $DEBUG;
     if (exists $INC{$filename}) {
         return 1 if $INC{$filename};
-        die "Compilation failed in require";
     }
     my ($realfilename,$result);
@@ -43 +43 @@
       foreach $prefix (@INC) {
           $realfilename = "$prefix/$filename";
-          print "$realfilename\n";
+          print "real: $realfilename\n" if $DEBUG;
           if (-f $realfilename) {
               $INC{$filename} = $realfilename;
+              print "calling 'do' on $realfilename\n" if $DEBUG;
               $result = do $realfilename;
+              print "result: $result\n" if $DEBUG;
               last ITER;
           }
@@ -53 +55 @@
     }
     if ($@) {
+        print "$@" if $DEBUG;
         $INC{$filename} = undef;
         die $@;
     } elsif (!$result) {
+        print "no result\n" if $DEBUG;
         delete $INC{$filename};
         die "$filename did not return true value";
     } else {
+        print "done with detailed_require\n" if $DEBUG;
         return $result;
     }