Security-57336.1.9.tar.gz

[apple/security.git] / Security / regressions / inc / MyHarness.pm

diff --git a/Security/regressions/inc/MyHarness.pm b/Security/regressions/inc/MyHarness.pm
deleted file mode 100644 (file)
index 781b828..0000000
--- a/Security/regressions/inc/MyHarness.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-use warnings;
-use strict;
-
-package MyStraps;
-use base qw( Test::Harness::Straps );
- 
-sub _command_line {
-    my $self = shift;
-    my $file = shift;
-
-    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
-    my $line = "$file";
-
-    return $line;
-}
-
-sub _default_inc {
-    return @INC;
-}
- 
-package MyHarness;
-use base qw( Test::Harness );
-
-#my $Strap = MyStraps->new();
-$Test::Harness::Strap = MyStraps->new();
- 
-sub strap { return $Test::Harness::Strap }
- 
-1;