diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/prep.pl | 6 | 
1 files changed, 3 insertions, 3 deletions
| @@ -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;$/;  } | 
