summaryrefslogtreecommitdiffstats
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-rw-r--r--contrib/Bugzilla.pm1
-rwxr-xr-xcontrib/bz_webservice_demo.pl5
-rwxr-xr-xcontrib/bzdbcopy.pl5
-rwxr-xr-xcontrib/console.pl6
-rwxr-xr-xcontrib/convert-workflow.pl5
-rwxr-xr-xcontrib/extension-convert.pl8
-rwxr-xr-xcontrib/fixperms.pl4
-rwxr-xr-xcontrib/merge-users.pl4
-rwxr-xr-xcontrib/mysqld-watcher.pl4
-rwxr-xr-xcontrib/recode.pl5
-rwxr-xr-xcontrib/sendbugmail.pl4
-rwxr-xr-xcontrib/sendunsentbugmail.pl4
-rwxr-xr-xcontrib/syncLDAP.pl4
13 files changed, 46 insertions, 13 deletions
diff --git a/contrib/Bugzilla.pm b/contrib/Bugzilla.pm
index fbae60de4..31e0a0f6d 100644
--- a/contrib/Bugzilla.pm
+++ b/contrib/Bugzilla.pm
@@ -6,6 +6,7 @@ package Bugzilla;
use 5.10.1;
use strict;
+use warnings;
#######################################################################
# The goal of this tiny module is to let Bugzilla packagers of #
diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl
index 8850d642a..af8c25308 100755
--- a/contrib/bz_webservice_demo.pl
+++ b/contrib/bz_webservice_demo.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -18,7 +18,10 @@ C<bz_webservice_demo.pl --help> for detailed help
=cut
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(lib);
use Getopt::Long;
use Pod::Usage;
diff --git a/contrib/bzdbcopy.pl b/contrib/bzdbcopy.pl
index f50002e85..fcdbefd56 100755
--- a/contrib/bzdbcopy.pl
+++ b/contrib/bzdbcopy.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,7 +6,10 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
diff --git a/contrib/console.pl b/contrib/console.pl
index dbd514ebd..fe2342cd9 100755
--- a/contrib/console.pl
+++ b/contrib/console.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,6 +6,8 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use warnings;
+
use File::Basename;
BEGIN { chdir dirname($0) . "/.."; }
use lib qw(. lib);
@@ -51,7 +53,7 @@ sub d {
# p: print as a single string (normal behavior puts list items on separate lines)
sub p {
- local $^W=0; # suppress possible undefined var message
+ no warnings; # suppress possible undefined var message
print(@_, "\n");
return ();
}
diff --git a/contrib/convert-workflow.pl b/contrib/convert-workflow.pl
index 8f76dac7f..d9bffb7bb 100755
--- a/contrib/convert-workflow.pl
+++ b/contrib/convert-workflow.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,7 +6,10 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
diff --git a/contrib/extension-convert.pl b/contrib/extension-convert.pl
index 4e24b614a..91a77b839 100755
--- a/contrib/extension-convert.pl
+++ b/contrib/extension-convert.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,8 +6,10 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
use warnings;
+
use lib qw(. lib);
use Bugzilla;
@@ -68,6 +70,8 @@ my ($modules, $subs) = code_files_to_subroutines($to_dir);
my $config_pm = <<END;
package Bugzilla::Extension::$extension_name;
use strict;
+use warnings;
+
use constant NAME => '$extension_name';
$install_requirements
__PACKAGE__->NAME;
@@ -76,6 +80,8 @@ END
my $extension_pm = <<END;
package Bugzilla::Extension::$extension_name;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
$modules
diff --git a/contrib/fixperms.pl b/contrib/fixperms.pl
index b9ac2059c..33b042c66 100755
--- a/contrib/fixperms.pl
+++ b/contrib/fixperms.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,8 +6,10 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
use warnings;
+
use lib qw(. lib);
use Bugzilla;
diff --git a/contrib/merge-users.pl b/contrib/merge-users.pl
index 62b087921..ddb828eef 100755
--- a/contrib/merge-users.pl
+++ b/contrib/merge-users.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,7 +6,9 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
+use warnings;
=head1 NAME
diff --git a/contrib/mysqld-watcher.pl b/contrib/mysqld-watcher.pl
index 08a87b5fe..be93dcbb5 100755
--- a/contrib/mysqld-watcher.pl
+++ b/contrib/mysqld-watcher.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -9,7 +9,9 @@
# mysqld-watcher.pl - a script that watches the running instance of
# mysqld and kills off any long-running SELECTs against the shadow_db
#
+use 5.10.1;
use strict;
+use warnings;
# some configurables:
diff --git a/contrib/recode.pl b/contrib/recode.pl
index de204f155..e6da47b92 100755
--- a/contrib/recode.pl
+++ b/contrib/recode.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,7 +6,10 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
diff --git a/contrib/sendbugmail.pl b/contrib/sendbugmail.pl
index da0eafd30..223d91f6c 100755
--- a/contrib/sendbugmail.pl
+++ b/contrib/sendbugmail.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -8,6 +8,8 @@
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
diff --git a/contrib/sendunsentbugmail.pl b/contrib/sendunsentbugmail.pl
index 474554135..b9034aa8d 100755
--- a/contrib/sendunsentbugmail.pl
+++ b/contrib/sendunsentbugmail.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -8,6 +8,8 @@
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
diff --git a/contrib/syncLDAP.pl b/contrib/syncLDAP.pl
index 6ad96477b..f618624ec 100755
--- a/contrib/syncLDAP.pl
+++ b/contrib/syncLDAP.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -T
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
@@ -6,7 +6,9 @@
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
+use warnings;
use lib qw(. lib);