This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mirror #2384.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 29 Nov 1998 20:13:03 +0000 (20:13 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 29 Nov 1998 20:13:03 +0000 (20:13 +0000)
p4raw-id: //depot/cfgperl@2396

t/op/pwent.t

index 1dcad26..d562ec3 100755 (executable)
@@ -78,7 +78,7 @@ foreach (sort keys %seen) {
     if ($times > 1) {
        # Multiply defined users are rarely intentional.
        local $" = ", ";
-       warn "# User '$_' defined multiple times in $where, lines: @{$seen{$_}}.\n";
+       print "# User '$_' defined multiple times in $where, lines: @{$seen{$_}}.\n";
        delete $suspect{$_};
     }
 }