t/prep.pl: delete as it's no longer needed

1 files changed, 0 insertions, 114 deletions

diff --git a/t/prep.pl b/t/prep.pl
deleted file mode 100755
index 92894fb..0000000
--- a/t/prep.pl
+++ /dev/null
@@ -1,114 +0,0 @@
-#!/usr/bin/perl
-
-use 5.16.0;
-use strict;
-use warnings FATAL => 'all';
-use File::Copy;
-use Tie::File;
-
-chomp(my $pwd = `pwd`);
-mkdir "$pwd/SBO" unless -d "$pwd/SBO";
-mkdir "$pwd/Sort" unless -d "$pwd/Sort";
-copy('../SBO-Lib/lib/SBO/Lib.pm', "$pwd/SBO");
-copy('../SBO-Lib/lib/Sort/Versions.pm', "$pwd/Sort");
-
-open my $write, '>>', "$pwd/SBO/Lib.pm";
-
-sub pr {
-	my $thing = shift;
-	print {$write} "our \$$thing = 1;\n";
-}
-
-for my $thing (qw(interactive compat32 no_readme jobs distclean noclean
-	no_install no_reqs force force_reqs clean non_int)) {
-	pr($thing);
-}
-
-print {$write} "use List::Util 'max';\n";
-print {$write} "my \%required_by;\n";
-print {$write} "our \@confirmed;\n";
-print {$write} "my \%locations;\n";
-print {$write} "my \%commands;\n";
-print {$write} "my \%options = (nothing => 'to see here');\n";
-
-sub get_subs {
-	my $read = shift;
-	my $begin_regex = qr/^sub\s+[a-z0-9_]+/;
-	my $usage_regex = qr/^sub\s+show_usage/;
-	my $end_regex = qr/^}$/;
-	my $begin = 0;
-	my $end = 0;
-	while (my $line = <$read>) {
-		if (! $begin) {
-			if ($line =~ $begin_regex) {
-				if ($line !~ $usage_regex) {
-					$end = 0, $begin++, print {$write} $line;
-				}
-			}
-		} elsif (! $end) {
-			if ($line =~ $end_regex) {
-				$begin = 0, $end++, print {$write} $line;
-			} else {
-				print {$write} $line;
-			}
-		}
-	}
-}
-
-for my $file (qw(sbocheck sboclean sboconfig sbofind sboupgrade sboremove)) {
-	open my $read, '<', "../$file";
-	get_subs($read);
-	close $read;
-}
-close $write;
-
-my @subs;
-open my $file_h, '<', "$pwd/SBO/Lib.pm";
-my $regex = qr/^sub\s+([^\s(]+)(\s|\()/;
-while (my $line = <$file_h>) {
-	if (my $sub = ($line =~ $regex)[0]) {
-		push @subs, $sub;
-	}
-}
-
-seek $file_h, 0, 0;
-my @not_exported;
-FIRST: for my $sub (@subs) {
-	my $found = 'FALSE';
-	my $has = 'FALSE';
-	SECOND: while (my $line = <$file_h>) {
-		if ($found eq 'FALSE') {
-			$found = 'TRUE', next SECOND if $line =~ /our \@EXPORT_OK/;
-		} else {
-			last SECOND if $line =~ /^\);$/;
-			$has = 'TRUE', last SECOND if $line =~ /$sub/;
-		}       
-	}   
-	push @not_exported, $sub unless $has eq 'TRUE';
-	seek $file_h, 0, 0;
-}
-
-close $file_h;
-tie my @file, 'Tie::File', "$pwd/SBO/Lib.pm";
-FIRST: for my $line (@file) {
-	if ($line =~ /our \@EXPORT_OK/) {
-		$line = "our \@EXPORT_OK = qw(". join ' ', @not_exported;
-	}
-	$line =~ s/^/#/ if $line =~ /^(read_config;|__END__)$/;
-	$line =~ s/^/1; #/ if $line =~ /^'ok';$/;
-}
-
-my $found = 0;
-FIRST: for my $line (@file) {
-	unless ($found) {
-		if ($line =~ /^unless\s+\(\$<\s+==/) {
-			$found++;
-			$line =~ s/^/#/;
-		}
-	} else {
-		$line =~ s/^/#/;
-		if ($line =~ /^#}$/) {
-			last FIRST;
-		}
-	}
-}