hand apply whitespace mutiliated patch
Robin Barker [Tue, 23 Jun 1998 16:38:06 +0000 (17:38 +0100)]
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

utils/perlbug.PL

index 0a53240..8f2c679 100644 (file)
@@ -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 {