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/SBO/App/Snap.pm | |
| parent | e2fa49af4780b36e842d93e45adaadce9e929592 (diff) | |
| download | sbotools2-a090d49ae630cf95b923d8a4f979eff0b7a66cb8.tar.xz | |
SBO::App: Fix package name and method lookup
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Snap.pm')
| -rwxr-xr-x | SBO-Lib/lib/SBO/App/Snap.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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); |