CVS: devtools/bin release,1.23,1.24

Update of devtools/bin
Modified Files:
	release 
Log Message:



======================================================================
FILE: devtools/bin/release
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/devtools/bin/release?rev=1.24>

<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/devtools/bin/release.diff?r1=1.23&r2=1.24&diff_format=h>
--- release	16 Jul 2005 07:57:43 -0000	1.23
+++ release	16 Jul 2005 21:58:48 -0000	1.24
@@ -68,4 +68,5 @@
     'cvsroot=s',        # CVS root (def: $CVSROOT envariable)
     'force-tag',        # Force tagging, regardless
+    'keeptest',         # Do not delete test files
     'test-only',        # Just do a test build and exit
     'mailprg=s',        # Mail program (def: /usr/lib/sendmail -t)
@@ -96,4 +97,5 @@
   $ECHO_ONLY    = $opt{'n'};
   $TEST_ONLY    = $opt{'test-only'};
+  $keeptest     = $opt{'keeptest'};
 
   ## Read site configuration file
@@ -269,5 +271,5 @@
     run_prg('/bin/mkdir', '-p', $testdir);
     local $SIG{__DIE__} = sub {
-      system('/bin/rm', '-rf', $testdir);
+      system('/bin/rm', '-rf', $testdir)  unless $keeptest;
       die $_[0];
     };
@@ -291,5 +293,7 @@
     ch_dir($reldir)  || die qq/Error: Unable to chdir to "$reldir": $!\n/;
 
-    run_prg('/bin/rm', '-rf', $testroot)  if ($TEST_ONLY || !$snapmode);
+    if (!$keeptest) {
+      run_prg('/bin/rm', '-rf', $testroot)  if ($TEST_ONLY || !$snapmode);
+    }
   }
 
@@ -776,4 +780,9 @@
 in the site-wide configuration file.  If no cvs root is specified,
 then the program terminates with an error.
+
+=item C<-keeptest>
+
+Do not delete test files.  Useful for debugging problems and
+when C<-test-only> is specified.
 
 =item C<-force-tag>


---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS