From: Gurusamy Sarathy <gsar@engin.umich.edu>
Date: Tue, 5 Aug 1997 10:36:54 +0000 (+1200)
Subject: perlbug - check sendmail and fix win32 tmp path
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d889e56a4409dacabbe7ff09437ec5f40716532a;p=p5sagit%2Fp5-mst-13.2.git

perlbug - check sendmail and fix win32 tmp path

Subject: [PATCH] "perlbug" =~ /(bug){2}/

perlbug -ok fails to quit cleanly and save a copy of the report
if there is no sendmail.

Further, it saves the bugreport in the wrong place on win32
(c:\tempbugrep027) due to a missing path-separator.

The attached patch fixes both problems.

p5p-msgid: 199708060349.XAA15895@aatma.engin.umich.edu
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 00fad31..4836f3a 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -352,6 +352,7 @@ EOF
 	my($dir) = ($Is_VMS ? 'sys$scratch:' :
 		    ($Is_MSWin32 and $ENV{'TEMP'} ? $ENV{'TEMP'} : '/tmp/'));
 	$filename = "bugrep0$$";
+	$dir .= "\\" if $Is_MSWin32 and $dir !~ m|[\\/]$|;
 	$filename++ while -e "$dir$filename";
 	$filename = "$dir$filename";
 	}
@@ -702,7 +703,7 @@ sub Send {
 				$sendmail = $_, last if -e $_;
 			}
 			
-			paraprint <<"EOF" and die "\n" if $sendmail eq "";
+			paraprint <<"EOF", die "\n" if $sendmail eq "";
 			
 I am terribly sorry, but I cannot find sendmail, or a close equivalent, and
 the perl package Mail::Send has not been installed, so I can't send your bug