diff options
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Snap.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/App/Snap.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/App/Snap.pm b/SBO-Lib/lib/SBO/App/Snap.pm index d2b0f57..f9e44a6 100644 --- a/SBO-Lib/lib/SBO/App/Snap.pm +++ b/SBO-Lib/lib/SBO/App/Snap.pm @@ -13,7 +13,7 @@ package SBO::App::Snap; use 5.16.0; use strict; use warnings FATAL => 'all'; -use SBO::Lib qw/ fetch_tree import_gpg_key update_tree %config show_version /; +use SBO::Lib qw/ _ERR_USAGE fetch_tree import_gpg_key update_tree %config show_version /; use Getopt::Long qw/ GetOptionsFromArray /; use parent 'SBO::App'; @@ -64,6 +64,11 @@ sub run { if ($self->{help}) { $self->show_usage(); return 0 } if ($self->{vers}) { $self->show_version(); return 0 } + unless ($< == 0) { + warn "This script requires root privileges.\n"; + exit _ERR_USAGE; + } + # check for a command and, if found, execute it $args[0] //= ''; |