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/Remove.pm | 1 +
 SBO-Lib/lib/SBO/App/Snap.pm   | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'SBO-Lib/lib/SBO/App')

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