fixes script to properly export subroutines

This commit is contained in:
Jed Reynolds
2018-08-08 18:13:22 -07:00
parent 61cf468f8a
commit a3a98cda0e

View File

@@ -24,7 +24,7 @@ if (defined $ENV{'DEBUG'}) {
} }
our $NL="\n"; our $NL="\n";
use Exporter 'import';
our @EXPORT_OK=qw(err logg xpand json_request get_links_from); our @EXPORT_OK=qw(err logg xpand json_request get_links_from);
sub err { sub err {
@@ -32,7 +32,7 @@ sub err {
for $i (@_) { for $i (@_) {
print STDERR "$i"; print STDERR "$i";
} }
print STDERR $::NL; print STDERR $NL;
} }
sub logg { sub logg {
@@ -40,7 +40,7 @@ sub logg {
for $i (@_) { for $i (@_) {
print STDOUT "$i"; print STDOUT "$i";
} }
print STDOUT $::NL; print STDOUT $NL;
} }
sub xpand { sub xpand {
@@ -76,4 +76,4 @@ sub get_links_from {
#print Dumper($ra_links2); #print Dumper($ra_links2);
return $ra_glf_links2; return $ra_glf_links2;
} }
1; 1;