diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2018-02-14 14:06:14 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2018-02-14 14:06:14 +0100 |
| commit | a090d49ae630cf95b923d8a4f979eff0b7a66cb8 (patch) | |
| tree | 135b0fa797bf7ed81cf4e916d0aa0d1a35a7a5f2 /SBO-Lib/lib | |
| parent | e2fa49af4780b36e842d93e45adaadce9e929592 (diff) | |
| download | sbotools2-a090d49ae630cf95b923d8a4f979eff0b7a66cb8.tar.xz | |
SBO::App: Fix package name and method lookup
Diffstat (limited to 'SBO-Lib/lib')
| -rwxr-xr-x | SBO-Lib/lib/SBO/App.pm | 4 | ||||
| -rwxr-xr-x | SBO-Lib/lib/SBO/App/Remove.pm | 1 | ||||
| -rwxr-xr-x | SBO-Lib/lib/SBO/App/Snap.pm | 5 |
3 files changed, 6 insertions, 4 deletions
diff --git a/SBO-Lib/lib/SBO/App.pm b/SBO-Lib/lib/SBO/App.pm index 7033d93..3e600fe 100755 --- a/SBO-Lib/lib/SBO/App.pm +++ b/SBO-Lib/lib/SBO/App.pm @@ -1,4 +1,4 @@ -package SBO::App::Remove; +package SBO::App; # vim: ts=2:et # @@ -15,7 +15,7 @@ use File::Basename; sub new { my $class = shift; - my $self = _parse_opts(@_); + my $self = $class->_parse_opts(@_); $self->{fname} = basename( (caller(0))[1] ); return bless $self, $class; diff --git a/SBO-Lib/lib/SBO/App/Remove.pm b/SBO-Lib/lib/SBO/App/Remove.pm index a660035..cc3d303 100755 --- a/SBO-Lib/lib/SBO/App/Remove.pm +++ b/SBO-Lib/lib/SBO/App/Remove.pm @@ -16,6 +16,7 @@ use Getopt::Long qw(GetOptionsFromArray :config bundling); use parent 'SBO::App'; sub _parse_opts { + my $class = shift; my @ARGS = @_; my ($help, $vers, $non_int, $alwaysask); diff --git a/SBO-Lib/lib/SBO/App/Snap.pm b/SBO-Lib/lib/SBO/App/Snap.pm index a00f977..f065a4c 100755 --- a/SBO-Lib/lib/SBO/App/Snap.pm +++ b/SBO-Lib/lib/SBO/App/Snap.pm @@ -1,5 +1,5 @@ -#!/usr/bin/perl -# +package SBO::App::Snap; + # vim: ts=2:et # # sbosnap @@ -19,6 +19,7 @@ use Getopt::Long qw/ GetOptionsFromArray /; use parent 'SBO::App'; sub _parse_opts { + my $class = shift; my @ARGS = @_; my ($help, $vers); |