hand apply whitespace mutiliated patch

	Message-Id: <5389.9806231538@tempest.cise.npl.co.uk>
	Subject: PATCH [perl5.004_68] perlbug.PL; was Re: Error message for Errno_pm.PL

p4raw-id: //depot/perl@1228

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 0a53240..8f2c679 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -250,6 +250,10 @@ EOF
     $me = $Is_MSWin32 ? $ENV{'USERNAME'}
            : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
            : eval { getpwuid($<) };    # May be missing
+
+    $from = $::Config{'cf_email'}
+       if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me &&
+               ($me eq $::Config{'cf_by'});
 } # sub Init
 
 sub Query {