1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Description: fix syntax error with $VERSION
Variable "$VERSION" is not imported at /usr/share/perl5/Net/Appliance/Session/Scripting.pm line 22.
Variable "$VERSION" is not imported at /usr/share/perl5/Net/Appliance/Session/Scripting.pm line 105.
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2018-01-02
Forwarded: https://github.com/ollyg/Net-Appliance-Session/pull/23
Bug: https://github.com/ollyg/Net-Appliance-Session/pull/23
--- a/lib/Net/Appliance/Session/Scripting.pm
+++ b/lib/Net/Appliance/Session/Scripting.pm
@@ -19,7 +19,7 @@
use Net::Appliance::Session;
my $banner = colored ['blue'],
- "Net Appliance Session scripting - v$VERSION - © 2012-2017 by Oliver Gorwits\n";
+ sprintf "Net Appliance Session scripting - v%s - © 2012-2017 by Oliver Gorwits\n", $Net::Appliance::Session::Scripting::VERSION;
my %options = (cloginrc_opts => {});
my $exit_status = 0;
@@ -101,7 +101,7 @@
bailout() if exists $options{help};
if (exists $options{version}) {
- print "nas version $VERSION\n";
+ printf "nas version %s\n", $Net::Appliance::Session::Scripting::VERSION;
exit(0);
}
|
