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