perlbug broken

This is a bug report for perl from schwab@issan.informatik.uni-dortmund.de,
generated with the help of perlbug 1.17 running under perl 5.00401.

p5p-msgid: 9707040912.AA03466@issan.informatik.uni-dortmund.de

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index d7dfe21..9161488 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -386,7 +386,7 @@ EOF
        
        {
        my($dir) = ($Is_VMS ? 'sys$scratch:' :
-                   ($Is_MSWin32 and $ENV{'TEMP'} ? $ENV{'TEMP'} : '/tmp/'));
+                   ($Is_MSWin32 && $ENV{'TEMP'} ? $ENV{'TEMP'} : '/tmp/'));
        $filename = "bugrep0$$";
        $dir .= "\\" if $Is_MSWin32 and $dir !~ m|[\\/]$|;
        $filename++ while -e "$dir$filename";