Changeset 34022 for branches/eam_branches/ipp-20120601/psconfig/pscheckmods

Timestamp:

Jun 17, 2012, 5:56:15 AM (14 years ago)

Author:

eugene

Message:

add -no-as-needed to LDFLAGS based on gcc

File:

• branches/eam_branches/ipp-20120601/psconfig/pscheckmods (modified) (5 diffs)

branches/eam_branches/ipp-20120601/psconfig/pscheckmods

@@ -1 +1 @@
 #!/usr/bin/env perl
 
+$DEBUG = 1;
 $VERBOSE = 0;
 if (@ARGV > 2 && $ARGV[0] eq "-v") {
@@ -16 +17 @@
 ## XXX EAM exit 2;
 
-# &detailed_require ($ARGV[0]);
+&detailed_require ($ARGV[0]);
 
 $x = eval "require $ARGV[0]; 1";
@@ -40 +41 @@
     $filename =~ s|::|/|g;
     $filename = "$filename.pm";
-    # print "$filename\n";
+    print "\ntesting : $filename\n" if $DEBUG;
     if (exists $INC{$filename}) {
         return 1 if $INC{$filename};
@@ -49 +50 @@
       foreach $prefix (@INC) {
           $realfilename = "$prefix/$filename";
-          # print "real: $realfilename\n";
+          print "real: $realfilename\n" if $DEBUG;
           if (-f $realfilename) {
               $INC{$filename} = $realfilename;
-              # print "calling 'do' on $realfilename\n";
+              print "calling 'do' on $realfilename\n" if $DEBUG;
               $result = do $realfilename;
-              # print "result: $result\n";
-              # exit 4;
+              print "result: $result\n" if $DEBUG;
               last ITER;
           }
@@ -61 +61 @@
       die "Can't find $filename in \@INC";
     }
-    # print "here 1\n";
     if ($@) {
-        # print "here 2\n";
-        # print "$@";
+        print "$@" if $DEBUG;
         $INC{$filename} = undef;
-        # print "here 2a\n";
-        exit 2;
         die $@;
     } elsif (!$result) {
-        # print "here 3\n";
-        # print "no result\n";
-        exit 2;
+        print "no result\n" if $DEBUG;
         delete $INC{$filename};
         die "$filename did not return true value";
     } else {
-        # print "here 4\n";
-        # print "done with detailed_require\n";
-        exit 2;
+        print "done with detailed_require\n" if $DEBUG;
         return $result;
     }