From: Robin Barker <RMBarker@cpan.org>
Date: Tue, 23 Jun 1998 16:38:06 +0000 (+0100)
Subject: hand apply whitespace mutiliated patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0830f08d1ac3314ba24d3d631beb837c7748610;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {