The #5805 requires a test change, too.
Jarkko Hietaniemi [Sat, 18 Mar 2000 20:38:12 +0000 (20:38 +0000)]
p4raw-id: //depot/cfgperl@5807

t/op/taint.t

index 6a9537b..6a5d6b7 100755 (executable)
@@ -552,9 +552,9 @@ else {
                  and not tainted $getpwent[3]
                  and not tainted $getpwent[4]
                  and not tainted $getpwent[5]
-                 and     tainted $getpwent[6] # gecos
+                 and     tainted $getpwent[6]          # ge?cos
                  and not tainted $getpwent[7]
-                 and not tainted $getpwent[8]);
+                 and     tainted $getpwent[8]);        # shell
        endpwent();
     } else {
        for (142) { print "ok $_ # Skipped: getpwent() is not available\n" }