[ID 20011001.011] redundant code in t/TEST

Message-Id: <200110011956.MAA16250@dd.tc.fluke.com>

p4raw-id: //depot/perl@12299

diff --git a/t/TEST b/t/TEST
index fa945cd6ad3fa384dd9b90ebea5370e3277b7036..e4550439425541aeb90fb38937dd31a218088d02 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -182,8 +182,6 @@ EOT
            close(SCRIPT);
        }
 
-       $test = $OVER{$test} if exists $OVER{$test};
-
        my $utf = $with_utf ? '-I../lib -Mutf8' : '';
        my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
        if ($type eq 'deparse') {