s/warn/print/ on multiply defined groups
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 29 Nov 1998 10:54:38 +0000 (10:54 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 29 Nov 1998 10:54:38 +0000 (10:54 +0000)
p4raw-id: //depot/perl@2384

t/op/grent.t

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