Use OpenBSD::Unveil only on OpenBSD

This will fail if user doesn't has the path in @INC which might be
possible on custom Perl install. I'll add a note about this in README.

This is good for non-OpenBSD users as now the program will run on
their system without any changes.

1 files changed, 7 insertions, 1 deletions

diff --git a/ara.pl b/ara.pl
index d55fdfc..4df7f72 100755
--- a/ara.pl
+++ b/ara.pl
@@ -9,7 +9,13 @@ use Text::ASCIITable;
 use Getopt::Long qw( GetOptions );
 use JSON::MaybeXS qw( decode_json );
 
-use OpenBSD::Unveil;
+use constant is_OpenBSD => $^O eq "openbsd";
+if (is_OpenBSD) {
+    require OpenBSD::Unveil;
+    OpenBSD::Unveil->import;
+} else {
+    sub unveil { return 1; }
+}
 
 # Unveil @INC.
 foreach my $path (@INC) {