diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-02-27 13:15:24 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-02-27 13:15:24 +0100 |
| commit | e0a581fa19feecdacf5debc6a6a4699e0fe6be9a (patch) | |
| tree | 6ef63a0e9ddfa94dc9c540623c3292e2ff12d7da | |
| parent | d705028b246408929c45bfd1bccebe77cf433569 (diff) | |
| download | sbotools2-e0a581fa19feecdacf5debc6a6a4699e0fe6be9a.tar.xz | |
Missed one exists()
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 9f75435..1ea50d2 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -116,8 +116,8 @@ our $pkg_db = '/var/log/packages'; # subroutine for throwing internal script errors sub script_error { - exists $_[0] ? warn "A fatal script error has occurred:\n$_[0]\nExiting.\n" - : warn "A fatal script error has occurred. Exiting.\n"; + @_ >= 1 ? warn "A fatal script error has occurred:\n$_[0]\nExiting.\n" + : warn "A fatal script error has occurred. Exiting.\n"; exit _ERR_SCRIPT; } |