use 5.10.1;
use strict;
+use warnings;
# We want any compile errors to get to the browser, if possible.
BEGIN {
use 5.10.1;
use strict;
+use warnings;
=head1 NAME
use 5.10.1;
use strict;
+use warnings;
use Config;
use IO::Select;
use 5.10.1;
use strict;
+use warnings;
+
use fields qw(
_info_getter
_verifier
use 5.10.1;
use strict;
+use warnings;
+
use fields qw();
# Determines whether or not a user can logout. It's really a subroutine,
use 5.10.1;
use strict;
+use warnings;
use base qw(Bugzilla::Auth::Login);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 1;
use 5.10.1;
use strict;
+use warnings;
use base qw(Bugzilla::Auth::Login);
use fields qw(_login_token);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Auth::Login);
use 5.10.1;
use strict;
+use warnings;
use base qw(Bugzilla::Auth::Login);
use fields qw(
use 5.10.1;
use strict;
+use warnings;
+
use fields qw();
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
+
use fields qw();
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Auth::Verify);
use 5.10.1;
use strict;
+use warnings;
use base qw(Bugzilla::Auth::Verify);
use fields qw(
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Auth::Verify);
use 5.10.1;
use strict;
+use warnings;
use base qw(Bugzilla::Auth::Verify);
use fields qw(
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Attachment;
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::User;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl::Bugzilla);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::BugUrl);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(CGI);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Field;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
+
use Bugzilla::Constants;
use Bugzilla::Hook;
use Data::Dumper;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use Bugzilla::Status;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use Bugzilla::Field;
use 5.10.1;
use strict;
+use warnings;
use Email::Address;
use Socket;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use Bugzilla::Group;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
# Return::Value 1.666002 pollutes the error log with warnings about this
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
use 5.10.1;
use strict;
+use warnings;
use DBI;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB);
use 5.10.1;
use strict;
+use warnings;
use parent -norequire, qw(DBI::st);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Version;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Hook;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB::Schema);
use Carp qw(confess);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB::Schema);
use Storable qw(dclone);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB::Schema);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::DB);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter Bugzilla::Object);
@Bugzilla::Field::EXPORT = qw(check_field get_field_id get_legal_field_values);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
=head1 NAME
use 5.10.1;
use strict;
+use warnings;
=head1 NAME
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
sub process {
my ($name, $args) = @_;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Component;
use Bugzilla::Config qw(:admin);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
our @EXPORT = qw(
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Hook;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Install::Util qw(bin_loc install_string);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Install::Util qw(install_string bin_loc
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::BugMail;
BEGIN { eval "use parent qw(Bugzilla::Job::Mailer)"; }
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Mailer;
BEGIN { eval "use parent qw(TheSchwartz::Worker)"; }
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use Cwd qw(abs_path);
use File::Basename;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
@Bugzilla::Mailer::EXPORT = qw(MessageToMTA build_thread_marker);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Attachment;
use Bugzilla::Bug qw(LogActivityEntry);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Migrate);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Hook;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
use Bugzilla::Constants qw(ON_WINDOWS);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
@Bugzilla::Search::EXPORT = qw(
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Search::Condition qw(condition);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Search::Clause);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
our @EXPORT_OK = qw(condition);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Email::Send::Sendmail);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
+use warnings;
# This subclasses Bugzilla::Field::Choice instead of implementing
# ChoiceInterface, because a bug status literally is a special type
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::WebService::Constants;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Template::Context);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Template::Plugin);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Template::Plugin);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Util;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::User::Setting);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::User::Setting);
use 5.10.1;
use strict;
+use warnings;
use DateTime::TimeZone;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
our @EXPORT = qw(detect_platform detect_op_sys);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
@Bugzilla::Util::EXPORT = qw(trick_taint detaint_natural detaint_signed
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object Exporter);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Server;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use parent qw (Bugzilla::WebService);
package Bugzilla::WebService::Component;
use 5.10.1;
-
use strict;
+use warnings;
+
use base qw(Bugzilla::WebService);
use Bugzilla::Component;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Exporter);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use Bugzilla::Component;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use Bugzilla::Product;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Error;
use Bugzilla::Util qw(datetime_from);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Server;
BEGIN {
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService::Server::JSONRPC);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Bug;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Bugzilla;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Classification;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Component;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::FlagType;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Group;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::Product;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::WebService::Constants;
use Bugzilla::WebService::User;
use 5.10.1;
use strict;
+use warnings;
use XMLRPC::Transport::HTTP;
use Bugzilla::WebService::Server;
use 5.10.1;
use strict;
+use warnings;
# We can't use "use parent" because XMLRPC::Serializer doesn't return
# a true value.
use 5.10.1;
use strict;
+use warnings;
use XMLRPC::Lite;
our @ISA = qw(XMLRPC::SOM);
use 5.10.1;
use strict;
+use warnings;
use Scalar::Util qw(blessed reftype);
# We can't use "use parent" because XMLRPC::Serializer doesn't return
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::WebService);
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Flag;
use Bugzilla::FlagType;
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
use 5.10.1;
use strict;
+use warnings;
use parent qw(Bugzilla::Object);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
# Initialization
######################################################################
-use strict;
use 5.10.1;
+use strict;
+use warnings;
+
use File::Basename;
use Getopt::Long qw(:config bundling);
use Pod::Usage;
-#!/usr/bin/perl -wT
+#!/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/.
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Getopt::Long qw(:config bundling);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
use 5.10.1;
use strict;
+use warnings;
#######################################################################
# The goal of this tiny module is to let Bugzilla packagers of #
-#!/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/.
=cut
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(lib);
use Getopt::Long;
use Pod::Usage;
-#!/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/.
# 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;
-#!/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/.
# 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);
# 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 ();
}
-#!/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/.
# 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;
-#!/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/.
# 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;
my $config_pm = <<END;
package Bugzilla::Extension::$extension_name;
use strict;
+use warnings;
+
use constant NAME => '$extension_name';
$install_requirements
__PACKAGE__->NAME;
my $extension_pm = <<END;
package Bugzilla::Extension::$extension_name;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
$modules
-#!/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/.
# 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;
-#!/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/.
# 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
-#!/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/.
# 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:
-#!/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/.
# 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;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
# 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);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-# This is a script to edit the values of fields that have drop-down
-# or select boxes. It is largely a copy of editmilestones.cgi, but
-# with some cleanup.
-
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
use 5.10.1;
use strict;
+use warnings;
+
use constant NAME => 'BmpConvert';
use constant REQUIRED_MODULES => [
{
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
use Image::Magick;
use 5.10.1;
use strict;
+use warnings;
+
use constant NAME => 'Example';
use constant REQUIRED_MODULES => [
{
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 0;
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
use 5.10.1;
use strict;
+use warnings;
use constant NAME => 'MoreBugUrl';
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
use constant MORE_SUB_CLASSES => qw(
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::BugUrl);
###############################
use 5.10.1;
use strict;
+use warnings;
+
use constant NAME => 'OldBugMove';
__PACKAGE__->NAME;
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
use Bugzilla::Constants;
use Bugzilla::Error;
use 5.10.1;
use strict;
+use warnings;
use Bugzilla::Config::Common;
use 5.10.1;
use strict;
+use warnings;
use constant NAME => 'Voting';
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
use Bugzilla::Bug;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
#####################################################################
#
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
use Cwd qw(abs_path);
use File::Basename;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use File::Basename;
BEGIN { chdir dirname($0); }
use lib qw(. lib);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
use parent qw(ModPerl::Registry);
use Bugzilla;
use 5.10.1;
use strict;
+use warnings;
use Apache2::Const -compile => qw(OK);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-# Implementation notes for this file:
-#
-# 1) the 'id' form parameter is validated early on, and if it is not a valid
-# bugid an error will be reported, so it is OK for later code to simply check
-# for a defined form 'id' value, and it can assume a valid bugid.
-#
-# 2) If the 'id' form parameter is not defined (after the initial validation),
-# then we are processing multiple bugs, and @idlist will contain the ids.
-#
-# 3) If we are processing just the one id, then it is stored in @idlist for
-# later processing.
-
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use diagnostics;
use strict;
+use warnings;
+
use lib qw(lib);
use Test::Harness qw(&runtests $verbose);
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use File::Temp;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Date::Parse; # strptime
#Bugzilla Test 1#
###Compilation###
-use strict;
use 5.10.1;
+use strict;
+use warnings;
+
use lib qw(. lib t);
use Config;
use Support::Files;
$libs = join " ", map { "-I\"$_\"" } split /$Config{path_sep}/, $ENV{PERL5LIB};
}
my $perl = qq{"$^X"};
- my $output = `$perl $libs -wc$T $file 2>&1`;
+ my $output = `$perl $libs -c$T $file 2>&1`;
chomp($output);
my $return_val = $?;
$output =~ s/^\Q$file\E syntax OK$//ms;
#Bugzilla Test 2#
####GoodPerl#####
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
use Support::Files;
-use Test::More tests => (scalar(@Support::Files::testitems) * 4);
+use Test::More tests => (scalar(@Support::Files::testitems)
+ + scalar(@Support::Files::test_files)) * 5;
-my @testitems = @Support::Files::testitems; # get the files to test.
+my @testitems = (@Support::Files::test_files, @Support::Files::testitems);
+my @require_taint = qw(email_in.pl importxml.pl mod_perl.pl whine.pl);
foreach my $file (@testitems) {
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
my $flags;
if (!defined $ext || $ext eq "pl") {
# standalone programs aren't taint checked yet
- $flags = "w";
+ if (grep { $file eq $_ } @require_taint) {
+ $flags = 'T';
+ }
+ else {
+ $flags = '';
+ }
} elsif ($ext eq "pm") {
ok(0, "$file is a module, but has a shebang");
next;
} elsif ($ext eq "cgi") {
# cgi files must be taint checked
- $flags = "wT";
+ $flags = 'T';
} else {
ok(0, "$file has shebang but unknown extension");
next;
}
- if ($file_line1 =~ m#^\#\!/usr/bin/perl\s#) {
- if ($file_line1 =~ m#\s-$flags#) {
- ok(1,"$file uses standard perl location and -$flags");
- } else {
- ok(0,"$file is MISSING -$flags --WARNING");
+ if ($file_line1 =~ m#^\#\!/usr/bin/perl(?:\s-(\w+))?$#) {
+ my $file_flags = $1 || '';
+ if ($flags eq $file_flags) {
+ ok(1, "$file uses standard perl location" . ($flags ? " and -$flags flag" : ""));
+ }
+ elsif ($flags) {
+ ok(0, "$file is MISSING -$flags flag --WARNING");
+ }
+ else {
+ ok(0, "$file has unexpected -$file_flags flag --WARNING");
}
} else {
ok(0,"$file uses non-standard perl location");
}
foreach my $file (@testitems) {
+ my $found_use_perl = 0;
my $found_use_strict = 0;
+ my $found_use_warnings = 0;
+
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
next if (!$file); # skip null entries
if (! open (FILE, $file)) {
next;
}
while (my $file_line = <FILE>) {
- if ($file_line =~ m/^\s*use strict/) {
- $found_use_strict = 1;
- last;
- }
+ $found_use_perl = 1 if $file_line =~ m/^\s*use 5.10.1/;
+ $found_use_strict = 1 if $file_line =~ m/^\s*use strict/;
+ $found_use_warnings = 1 if $file_line =~ m/^\s*use warnings/;
+ last if ($found_use_perl && $found_use_strict && $found_use_warnings);
}
close (FILE);
+ if ($found_use_perl) {
+ ok(1,"$file requires Perl 5.10.1");
+ } else {
+ ok(0,"$file DOES NOT require Perl 5.10.1 --WARNING");
+ }
+
if ($found_use_strict) {
ok(1,"$file uses strict");
} else {
ok(0,"$file DOES NOT use strict --WARNING");
}
-}
-foreach my $file (@testitems) {
- my $found_use_feature = 0;
- $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
- next if (!$file); # skip null entries
- if (! open (FILE, $file)) {
- ok(0,"could not open $file --WARNING");
- next;
- }
- while (my $file_line = <FILE>) {
- if ($file_line =~ m/^\s*use 5.10.1/) {
- $found_use_feature = 1;
- last;
- }
- }
- close (FILE);
- if ($found_use_feature) {
- ok(1,"$file requires Perl 5.10.1");
+ if ($found_use_warnings) {
+ ok(1,"$file uses warnings");
} else {
- ok(0,"$file DOES NOT require Perl 5.10.1 --WARNING");
+ ok(0,"$file DOES NOT use warnings --WARNING");
}
}
#Bugzilla Test 3#
###Safesystem####
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
# This will handle verbosity for us automatically.
my $fh;
{
- local $^W = 0; # Don't complain about non-existent filehandles
+ no warnings qw(unopened); # Don't complain about non-existent filehandles
if (-e \*Test::More::TESTOUT) {
$fh = \*Test::More::TESTOUT;
} elsif (-e \*Test::Builder::TESTOUT) {
#Bugzilla Test 4#
####Templates####
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
# This will handle verbosity for us automatically.
my $fh;
{
- local $^W = 0; # Don't complain about non-existent filehandles
+ no warnings qw(unopened); # Don't complain about non-existent filehandles
if (-e \*Test::More::TESTOUT) {
$fh = \*Test::More::TESTOUT;
} elsif (-e \*Test::Builder::TESTOUT) {
#Bugzilla Test 5#
#####no_tabs#####
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
#Bugzilla Test 6#
####Spelling#####
+use 5.10.1;
+use strict;
+use warnings;
+
use lib 't';
use Support::Files;
-BEGIN {
- #add the words to check here:
- @evilwords = qw(
- anyways
- appearence
- arbitary
- cancelled
- critera
- databasa
- dependan
- existance
- existant
- paramater
- refered
- repsentation
- suported
- varsion
- );
-}
-
# -1 because 006spellcheck.t must not be checked.
use Test::More tests => scalar(@Support::Files::testitems)
+ scalar(@Support::Files::test_files) - 1;
# This will handle verbosity for us automatically.
my $fh;
{
- local $^W = 0; # Don't complain about non-existent filehandles
+ no warnings qw(unopened); # Don't complain about non-existent filehandles
if (-e \*Test::More::TESTOUT) {
$fh = \*Test::More::TESTOUT;
} elsif (-e \*Test::Builder::TESTOUT) {
my @testitems = (@Support::Files::testitems, @Support::Files::test_files);
-# at last, here we actually run the test...
+#add the words to check here:
+my @evilwords = qw(
+ anyways
+ appearence
+ arbitary
+ cancelled
+ critera
+ databasa
+ dependan
+ existance
+ existant
+ paramater
+ refered
+ repsentation
+ suported
+ varsion
+);
+
my $evilwordsregexp = join('|', @evilwords);
foreach my $file (@testitems) {
#Bugzilla Test 7#
#####Util.pm#####
+use 5.10.1;
+use strict;
+use warnings;
+
use lib 't';
use Support::Files;
use Test::More tests => 17;
use DateTime;
BEGIN {
- use_ok(Bugzilla);
- use_ok(Bugzilla::Util);
+ use_ok('Bugzilla');
+ use_ok('Bugzilla::Util');
}
# We need to override user preferences so we can get an expected value when
# Sample exploit code: '>"><script>alert('Oh dear...')</script>
+use 5.10.1;
use strict;
-use lib qw(. lib t);
+use warnings;
-use vars qw(%safe);
+use lib qw(. lib t);
use Bugzilla::Constants;
use Support::Templates;
my $oldrecsep = $/;
my $topdir = cwd;
$/ = undef;
+our %safe;
foreach my $path (@Support::Templates::include_paths) {
$path =~ s|\\|/|g if ON_WINDOWS; # convert \ to / in path if on windows
ok(1, "($lang/$flavor) $file is filter-safe");
next;
}
-
+
# Read the entire file into a string
- open (FILE, "<$file") || die "Can't open $file: $!\n";
+ open (FILE, "<$file") || die "Can't open $file: $!\n";
my $slurp = <FILE>;
close (FILE);
# "[% terms.bug %]". This test makes sure the relevant words aren't used
# bare.
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
#Bugzilla Test 10#
## dependencies ##
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib t);
use Support::Files;
#Bugzilla Test 11#
##POD validation##
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
# This will handle verbosity for us automatically.
my $fh;
{
- local $^W = 0; # Don't complain about non-existent filehandles
+ no warnings qw(unopened); # Don't complain about non-existent filehandles
if (-e \*Test::More::TESTOUT) {
$fh = \*Test::More::TESTOUT;
} elsif (-e \*Test::Builder::TESTOUT) {
#Bugzilla Test 12#
######Errors######
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib t);
use Bugzilla::Constants;
# Check the Bugzilla database schema to ensure no field names conflict
# with SQL reserved words.
+use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. t lib);
use Bugzilla;
use Bugzilla::DB::Schema;
package Support::Files;
+use 5.10.1;
+use strict;
+use warnings;
+
use File::Find;
-@additional_files = ();
+our @additional_files = ();
-@files = glob('*');
+our @files = glob('*');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'Bugzilla');
push(@files, 'extensions/create.pl');
-@extensions =
+our @extensions =
grep { $_ ne 'extensions/create.pl' && ! -e "$_/disabled" }
glob('extensions/*');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, $extension);
}
-@test_files = glob('t/*.t');
+our @test_files = glob('t/*.t');
sub isTestingFile {
my ($file) = @_;
return undef;
}
-foreach $currentfile (@files) {
+our (@testitems, @module_files);
+
+foreach my $currentfile (@files) {
if (isTestingFile($currentfile)) {
- push(@testitems,$currentfile);
+ push(@testitems, $currentfile);
}
push(@module_files, $currentfile) if $currentfile =~ /\.pm$/;
}
# defined by the Mozilla Public License, v. 2.0.
package Support::Systemexec;
+
+use 5.10.1;
+use strict;
+use warnings;
+
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(system exec);
package Support::Templates;
+use 5.10.1;
use strict;
+use warnings;
use lib 't';
use parent qw(Exporter);
-@Support::Templates::EXPORT =
- qw(@languages @include_paths @english_default_include_paths
- %include_path @referenced_files %actual_files $num_actual_files);
-use vars qw(@languages @include_paths @english_default_include_paths
- %include_path @referenced_files %actual_files $num_actual_files);
+@Support::Templates::EXPORT =
+ qw(@languages @include_paths @english_default_include_paths
+ @referenced_files %actual_files $num_actual_files);
use Bugzilla;
use Bugzilla::Constants;
use File::Find;
use File::Spec;
-# The available template languages
-@languages = ();
-
-# The colon separated includepath per language
-%include_path = ();
-
-# All include paths
-@include_paths = ();
-
# English default include paths
-push @english_default_include_paths,
- File::Spec->catdir(bz_locations()->{'templatedir'}, 'en', 'default');
+our @english_default_include_paths =
+ (File::Spec->catdir(bz_locations()->{'templatedir'}, 'en', 'default'));
# And the extensions too
foreach my $extension (@Support::Files::extensions) {
}
# Files which are referenced in the cgi files
-@referenced_files = ();
+our @referenced_files = ();
# All files sorted by include_path
-%actual_files = ();
+our %actual_files = ();
# total number of actual_files
-$num_actual_files = 0;
+our $num_actual_files = 0;
# Set the template available languages and include paths
-@languages = @{ Bugzilla->languages };
-@include_paths = @{ template_include_path({ language => Bugzilla->languages }) };
+our @languages = @{ Bugzilla->languages };
+our @include_paths = @{ template_include_path({ language => Bugzilla->languages }) };
-my @files;
+our @files;
# Local subroutine used with File::Find
sub find_templates {
use 5.10.1;
use strict;
+use warnings;
use constant NAME => '[% name %]';
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Bugzilla::Extension);
# This code for this is in [% path %]/lib/Util.pm
use 5.10.1;
use strict;
+use warnings;
+
use parent qw(Exporter);
our @EXPORT = qw(
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
say "content-type:text/plain\n";
say "OK " . ($::ENV{MOD_PERL} || "mod_cgi");
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
-#!/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/.
use 5.10.1;
use strict;
+use warnings;
+
use lib qw(. lib);
use Bugzilla;
projects / thirdparty / bugzilla.git / commitdiff
