getpwuid() fragility continues.
Jarkko Hietaniemi [Mon, 22 Oct 2001 20:10:40 +0000 (20:10 +0000)]
p4raw-id: //depot/perl@12589

utils/h2xs.PL

index 2a7b1c4..2b36af0 100644 (file)
@@ -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";