From a645fe52945b8a0f7a0e6a2c244937bbc56a93a4 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Sat, 16 Feb 2019 17:13:50 +0000
Subject: [PATCH] scstadmin: Enable Perl warnings in tests scripts

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@7929 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t          | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t           | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t             | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t                | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t             | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t         | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t      | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t | 1 +
 scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t           | 1 +
 9 files changed, 9 insertions(+)

diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
index 34bf666bb..661c968d9 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
index 267423138..372c70e87 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
index d07b11a34..26ca57fe6 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
index 72db337a2..04843eb67 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
index d31c739bf..c4cd84585 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
index 3bc6fd6b7..5d68de95c 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
index 2178c7344..8cc23759f 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
index cac3a5e02..7755ec669 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
index c2cad55cf..b8fca3d32 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {