1 files changed, 0 insertions, 11 deletions
diff --git a/TAO/tests/TransportCurrent/Framework/run_test.pl b/TAO/tests/TransportCurrent/Framework/run_test.pl
index 5a1a57145cc..e7122b83a1b 100755
--- a/TAO/tests/TransportCurrent/Framework/run_test.pl
+++ b/TAO/tests/TransportCurrent/Framework/run_test.pl
@@ -11,17 +11,6 @@ use PerlACE::Run_Test;
 
 PerlACE::add_lib_path ('../lib');
 
-sub add_path {
-    my($name)  = shift;
-    my($value) = shift;
-    if (defined $ENV{$name}) {
-        $ENV{$name} .= $Config{'path_sep'} . $value
-        }
-    else {
-        $ENV{$name} = $value;
-    }
-}
-
 my $status = 0;
 my $confmod = "";