sbotools2

commit efbf942beff334f14b9c2bc36ed5e8df9312e3bb
parent 8b67c81f2a67b59b2a7ead1ef527d7f9a1388d49
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Mon, 14 Dec 2015 01:18:13 +0100

Change prep.pl to change @EXPORT_OK instead of @EXPORT

Diffstat:
M
t/prep.pl
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/t/prep.pl b/t/prep.pl
@@ -77,7 +77,7 @@ FIRST: for my $sub (@subs) {
 	my $has = 'FALSE';
 	SECOND: while (my $line = <$file_h>) {
 		if ($found eq 'FALSE') {
-			$found = 'TRUE', next SECOND if $line =~ /\@EXPORT/;
+			$found = 'TRUE', next SECOND if $line =~ /our \@EXPORT_OK/;
 		} else {
 			last SECOND if $line =~ /^\);$/;
 			$has = 'TRUE', last SECOND if $line =~ /$sub/;
@@ -90,8 +90,8 @@ FIRST: for my $sub (@subs) {
 close $file_h;
 tie my @file, 'Tie::File', "$pwd/SBO/Lib.pm";
 FIRST: for my $line (@file) {
-	if ($line =~ /\@EXPORT/) {
-		$line = "our \@EXPORT = qw(". join ' ', @not_exported;
+	if ($line =~ /our \@EXPORT_OK/) {
+		$line = "our \@EXPORT_OK = qw(". join ' ', @not_exported;
 	}
 	$line =~ s/^/#/ if $line =~ /^read_config;$/;
 }