diff options
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 |