From d889e56a4409dacabbe7ff09437ec5f40716532a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Tue, 5 Aug 1997 22:36:54 +1200 Subject: 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 --- utils/perlbug.PL | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'utils/perlbug.PL') diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 00fad311d2..4836f3aa41 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 -- cgit v1.2.1