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";
use Exporter 'import';
our @EXPORT_OK=qw(err logg xpand json_request get_links_from);
sub err {
@@ -32,7 +32,7 @@ sub err {
for $i (@_) {
print STDERR "$i";
}
print STDERR $::NL;
print STDERR $NL;
}
sub logg {
@@ -40,7 +40,7 @@ sub logg {
for $i (@_) {
print STDOUT "$i";
}
print STDOUT $::NL;
print STDOUT $NL;
}
sub xpand {
@@ -76,4 +76,4 @@ sub get_links_from {
#print Dumper($ra_links2);
return $ra_glf_links2;
}
1;
1;