getpwuid() fragility continues.

p4raw-id: //depot/perl@12589

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 2a7b1c4..2b36af0 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -1052,12 +1052,14 @@ END
 my ($email,$author);
 
 eval {
-       my $user;
-       ($user,$author) = (getpwuid($>))[0,6];
-       $author =~ s/,.*$//; # in case of sub fields
-       my $domain = $Config{'mydomain'};
-       $domain =~ s/^\.//;
-       $email = "$user\@$domain";
+       my $username;
+       ($username,$author) = (getpwuid($>))[0,6];
+       if (defined $username && defined $author) {
+          $author =~ s/,.*$//; # in case of sub fields
+          my $domain = $Config{'mydomain'};
+          $domain =~ s/^\.//;
+          $email = "$username\@$domain";
+       }
      };
 
 $author ||= "A. U. Thor";