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);