From 46698cc77d42a7cf5705366c10ba47b61f808f16 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Sun, 10 Mar 2019 01:01:59 +0000
Subject: [PATCH] scstadmin: Enable Perl warnings

Make the Perl interpreter complain about dubious Perl constructs.


git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@8024 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm | 3 ++-
 scstadmin/scstadmin.sysfs/scstadmin                   | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm b/scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm
index 75d14a76a..b16bb135e 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/lib/SCST/SCST.pm
@@ -7,11 +7,12 @@ package SCST::SCST;
 # Copyright (c) 2005-2011 Mark R. Buechler
 # Copyright (c) 2011-2019 Bart Van Assche <bvanassche@acm.org>.
 
+use strict;
+use warnings;
 use 5.005;
 use Fcntl ':mode';
 use IO::Handle;
 use IO::File;
-use strict;
 use Carp qw(cluck);
 
 use POSIX;
diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index 89fbe6928..93f953162 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use strict;
+use warnings;
+
 my $Version  = 'SCST Configurator v3.3.0-pre1';
 
 # Configures SCST
@@ -242,7 +245,6 @@ Examples:
 EndUsage
   }
 
-use strict;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;