aboutsummaryrefslogtreecommitdiff
path: root/SBO-Lib/lib/SBO/App/Snap.pm
diff options
context:
space:
mode:
authorSlack Coder <slackcoder@server.ky>2025-01-21 16:11:42 -0500
committerSlack Coder <slackcoder@server.ky>2025-01-28 11:31:35 -0500
commit921e9a76f1ca47d30d765f2f2bf61954e8ac9c9c (patch)
treeb2b0fa36ce53922c20538e8e5b4aeff8811eb2e0 /SBO-Lib/lib/SBO/App/Snap.pm
parentda89dd975499f6b228d75fa5f25871911fae658a (diff)
downloadsbotools2-921e9a76f1ca47d30d765f2f2bf61954e8ac9c9c.tar.xz
Avoid requiring root access
Make temporary folder generation lazy to postpone requiring root access until needed.
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Snap.pm')
-rw-r--r--SBO-Lib/lib/SBO/App/Snap.pm7
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] //= '';