Changeset 34028

Timestamp:

Jun 18, 2012, 8:57:39 AM (14 years ago)

Author:

eugene

Message:

add -clean option for perl

File:

• branches/eam_branches/ipp-20120601/psconfig/pscheckperl (modified) (4 diffs)

branches/eam_branches/ipp-20120601/psconfig/pscheckperl

@@ -5 +5 @@
 $version = "";
 $build = 0;
+$clean = 0;
 my %force;   # Names of module to force build
 @tARGV = ();
@@ -14 +15 @@
     if ($ARGV[0] eq "-build") {
         $build = 1;
+        shift; next;
+    }
+    if ($ARGV[0] eq "-clean") {
+        $clean = 1;
         shift; next;
     }
@@ -32 +37 @@
 if ( @ARGV > 1) { &usage(); }
 
+if ($build && $clean) {die "-build and -clean are incompatible\n";}
+
 if ( @ARGV == 0) {
     @list = <$tagsets/*.perl>;
@@ -95 +102 @@
     # if ($modver eq "") { $modver = 0; }
 
+    if ($clean) {
+        ($tardir) = $tarball =~ m|(\S*).tar.gz|;
+        $tardir = "../extperl/$tardir";
+        if (-d $tardir) {
+            print "remove tardir: $tardir\n";
+            vsystem ("rm -rf $tardir");
+        }
+        next;
+    }
+    
     system ("pscheckmods $module $modver");
     if (($? == 0) and not defined $force{$module} and not defined $force{'all'}) {