diff options
| author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-08-05 22:36:54 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | d889e56a4409dacabbe7ff09437ec5f40716532a (patch) | |
| tree | 88e976cda4eef066ee0f24bebcc783dedcae2a82 /utils/perlbug.PL | |
| parent | 5f3a9ec67351cbdf98a6a44e1cd7a5cadd51a41e (diff) | |
| download | perl-d889e56a4409dacabbe7ff09437ec5f40716532a.tar.gz | |
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
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 3 |
1 files changed, 2 insertions, 1 deletions
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 |