Make sterilize env respond to more ENV variables

kentnl · Sep 21, 2013 · 746ad1c · 746ad1c
1 parent 1a977e3
commit 746ad1c
Showing 1 changed file with 17 additions and 3 deletions.
diff --git a/sterilize_env.pl b/sterilize_env.pl
@@ -3,15 +3,29 @@
 use warnings;
 use utf8;
 
+sub diag {
+    print STDERR @_;
+    print STDERR "\n";
+}
+
+if ( not exists $ENV{STERILIZE_ENV} ) {
+    diag('STERILIZE_ENV unset');
+    exit 0;
+}
+if ( $ENV{STERILIZE_ENV} < 1 ) {
+    diag('STERLIZIE_ENV < 1, Not Sterilizing');
+    exit 0;
+}
 if ( not exists $ENV{TRAVIS} ) {
-    die "Is not travis!";
+    diag('Is not running under travis!');
+    exit 1;
 }
 for my $i (@INC) {
     next if $i !~ /site/;
     next if $i eq '.';
-
-    #    printf "%s\n", $i;
+    diag( 'Sterilizing files in ' . $i );
     system( 'find', $i, '-type', 'f', '-delete' );
+    diag( 'Sterilizing dirs in ' . $i );
     system( 'find', $i, '-depth', '-type', 'd', '-delete' );
 }