From a090d49ae630cf95b923d8a4f979eff0b7a66cb8 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Wed, 14 Feb 2018 14:06:14 +0100
Subject: SBO::App: Fix package name and method lookup

---
 SBO-Lib/lib/SBO/App.pm        | 4 ++--
 SBO-Lib/lib/SBO/App/Remove.pm | 1 +
 SBO-Lib/lib/SBO/App/Snap.pm   | 5 +++--
 3 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'SBO-Lib/lib')

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);
-- 
cgit v1.2.3