From efbf942beff334f14b9c2bc36ed5e8df9312e3bb Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Mon, 14 Dec 2015 01:18:13 +0100
Subject: Change prep.pl to change @EXPORT_OK instead of @EXPORT

---
 t/prep.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/prep.pl b/t/prep.pl
index 766dde9..e2fc702 100755
--- 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;$/;
 }
-- 
cgit v1.2.3