mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-31 18:58:01 +00:00
fixes script to properly export subroutines
This commit is contained in:
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user