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 . +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;