package Bugzilla;
+use 5.10.1;
use strict;
# We want any compile errors to get to the browser, if possible.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Attachment;
+use 5.10.1;
+use strict;
+
=head1 NAME
Bugzilla::Attachment - Bugzilla attachment class.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Attachment::PatchReader;
+use 5.10.1;
+use strict;
+
use Bugzilla::Error;
use Bugzilla::Attachment;
use Bugzilla::Util;
package Bugzilla::Auth;
+use 5.10.1;
use strict;
use fields qw(
_info_getter
package Bugzilla::Auth::Login;
+use 5.10.1;
use strict;
use fields qw();
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Login::CGI;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Login);
use constant user_can_create_account => 1;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Login::Cookie;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Login);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Login::Env;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Login);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Login::Stack;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Login);
use fields qw(
_stack
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Persist::Cookie;
+
+use 5.10.1;
use strict;
use fields qw();
package Bugzilla::Auth::Verify;
+use 5.10.1;
use strict;
use fields qw();
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Verify::DB;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Verify::LDAP;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Verify);
use fields qw(
ldap
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Verify::RADIUS;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Verify);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Auth::Verify::Stack;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Auth::Verify);
use fields qw(
_stack
package Bugzilla::Bug;
+use 5.10.1;
use strict;
use Bugzilla::Attachment;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::BugMail;
+use 5.10.1;
+use strict;
+
use Bugzilla::Error;
use Bugzilla::User;
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Util;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Bugzilla;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
use Bugzilla::Error;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Bugzilla::Local;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl::Bugzilla);
use Bugzilla::Error;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Debian;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::GitHub;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Google;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::JIRA;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Launchpad;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::MantisBT;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::SourceForge;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::BugUrl::Trac;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::BugUrl);
###############################
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::CGI;
+
+use 5.10.1;
use strict;
+
use base qw(CGI);
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
# This module represents a chart.
#
# Note that it is perfectly legal for the 'lines' member variable of this
# the same points.
package Bugzilla::Chart;
+use 5.10.1;
+use strict;
+
use Bugzilla::Error;
use Bugzilla::Util;
use Bugzilla::Series;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Classification;
+use 5.10.1;
+use strict;
+
use Bugzilla::Constants;
use Bugzilla::Field;
use Bugzilla::Util;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Comment;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Attachment;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Component;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants;
package Bugzilla::Config;
+use 5.10.1;
use strict;
use base qw(Exporter);
package Bugzilla::Config::Admin;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Config::Advanced;
+
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::Attachment;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::Auth;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::BugChange;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::BugFields;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::Common;
+use 5.10.1;
use strict;
use Email::Address;
package Bugzilla::Config::Core;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::DependencyGraph;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Config::General;
+
+use 5.10.1;
use strict;
+
use Bugzilla::Config::Common;
our $sortkey = 150;
package Bugzilla::Config::GroupSecurity;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::LDAP;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::MTA;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::PatchViewer;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::Query;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::RADIUS;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::ShadowDB;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
package Bugzilla::Config::UserMatch;
+use 5.10.1;
use strict;
use Bugzilla::Config::Common;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Constants;
+
+use 5.10.1;
use strict;
+
use base qw(Exporter);
# For bz_locations
package Bugzilla::DB;
+use 5.10.1;
use strict;
use DBI;
=cut
package Bugzilla::DB::Mysql;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::DB);
use Bugzilla::Constants;
=cut
package Bugzilla::DB::Oracle;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::DB);
use DBD::Oracle;
############################################################################
package Bugzilla::DB::Oracle::st;
+
+use 5.10.1;
+use strict;
+
use base qw(DBI::st);
sub fetchrow_arrayref {
package Bugzilla::DB::Pg;
+use 5.10.1;
use strict;
use Bugzilla::Error;
#
###########################################################################
+use 5.10.1;
use strict;
+
use Bugzilla::Error;
use Bugzilla::Hook;
use Bugzilla::Util;
#
###############################################################################
+use 5.10.1;
use strict;
+
use Bugzilla::Error;
use base qw(Bugzilla::DB::Schema);
#
###############################################################################
+use 5.10.1;
use strict;
use base qw(Bugzilla::DB::Schema);
#
###############################################################################
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::DB::Schema);
use Storable qw(dclone);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
package Bugzilla::DB::Schema::Sqlite;
+
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::DB::Schema);
use Bugzilla::Error;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
package Bugzilla::DB::Sqlite;
+
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::DB);
use Bugzilla::Constants;
package Bugzilla::Error;
+use 5.10.1;
use strict;
+
use base qw(Exporter);
@Bugzilla::Error::EXPORT = qw(ThrowCodeError ThrowTemplateError ThrowUserError);
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Extension;
+
+use 5.10.1;
use strict;
use Bugzilla::Constants;
package Bugzilla::Field;
+use 5.10.1;
use strict;
use base qw(Exporter Bugzilla::Object);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Field::Choice;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Config qw(SetParam write_params);
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Field::ChoiceInterface;
+
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Flag;
+use 5.10.1;
+use strict;
+
=head1 NAME
Bugzilla::Flag - A module to deal with Bugzilla flag values.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::FlagType;
+use 5.10.1;
+use strict;
+
=head1 NAME
Bugzilla::FlagType - A module to deal with Bugzilla flag types.
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Group;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Hook;
+
+use 5.10.1;
use strict;
sub process {
# make those assumptions, then it should go into one of the
# packages under the Bugzilla::Install namespace.
+use 5.10.1;
use strict;
use Bugzilla::Component;
use Bugzilla::Product;
use Bugzilla::User;
use Bugzilla::User::Setting;
-use Bugzilla::Util qw(get_text say);
+use Bugzilla::Util qw(get_text);
use Bugzilla::Version;
use constant STATUS_WORKFLOW => (
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Install::CPAN;
+
+use 5.10.1;
use strict;
+
use base qw(Exporter);
our @EXPORT = qw(
BZ_LIB
# NOTE: This package may "use" any modules that it likes,
# localconfig is available, and params are up to date.
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# * Files do not have the correct permissions.
# * The database does not exist.
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# * Files do not have the correct permissions
# * The database is not up to date
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# Subroutines may "require" and "import" from modules, but they
# MUST NOT "use."
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# module may require *only* Bugzilla::Constants and built-in
# perl modules.
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Job::Mailer;
+
+use 5.10.1;
use strict;
+
use Bugzilla::Mailer;
BEGIN { eval "use base qw(TheSchwartz::Worker)"; }
package Bugzilla::JobQueue;
+use 5.10.1;
use strict;
use Bugzilla::Constants;
package Bugzilla::JobQueue::Runner;
+use 5.10.1;
use strict;
+
use Cwd qw(abs_path);
use File::Basename;
use File::Copy;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Keyword;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Error;
package Bugzilla::Mailer;
+use 5.10.1;
use strict;
use base qw(Exporter);
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Migrate;
+
+use 5.10.1;
use strict;
use Bugzilla::Attachment;
use Bugzilla::Install::Requirements ();
use Bugzilla::Install::Util qw(indicate_progress);
use Bugzilla::Product;
-use Bugzilla::Util qw(get_text trim generate_random_password say);
+use Bugzilla::Util qw(get_text trim generate_random_password);
use Bugzilla::User ();
use Bugzilla::Status ();
use Bugzilla::Version;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Migrate::Gnats;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Migrate);
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Milestone;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Object;
+use 5.10.1;
+use strict;
+
use Bugzilla::Constants;
use Bugzilla::Hook;
use Bugzilla::Util;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Product;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Field::ChoiceInterface Bugzilla::Object);
use Bugzilla::Constants;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::RNG;
+
+use 5.10.1;
use strict;
+
use base qw(Exporter);
use Bugzilla::Constants qw(ON_WINDOWS);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Report;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::CGI;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
+package Bugzilla::Search;
+
+use 5.10.1;
use strict;
-package Bugzilla::Search;
use base qw(Exporter);
@Bugzilla::Search::EXPORT = qw(
IsValidQueryType
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Search::Clause;
+
+use 5.10.1;
use strict;
use Bugzilla::Error;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Search::Condition;
+
+use 5.10.1;
use strict;
+
use base qw(Exporter);
our @EXPORT_OK = qw(condition);
package Bugzilla::Search::Quicksearch;
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
use Bugzilla::Error;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Search::Recent;
+
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Search::Saved;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::CGI;
package Bugzilla::Send::Sendmail;
+use 5.10.1;
use strict;
use base qw(Email::Send::Sendmail);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
# This module implements a series - a set of data to be plotted on a chart.
#
# This Series is in the database if and only if self->{'series_id'} is defined.
package Bugzilla::Series;
+use 5.10.1;
+use strict;
+
use Bugzilla::Error;
use Bugzilla::Util;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Status;
-use Bugzilla::Error;
+use 5.10.1;
+use strict;
+
# This subclasses Bugzilla::Field::Choice instead of implementing
# ChoiceInterface, because a bug status literally is a special type
# of Field::Choice, not just an object that happens to have the same
closed_bug_statuses
);
+use Bugzilla::Error;
+
################################
##### Initialization #####
################################
package Bugzilla::Template;
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# This exists to implement the template-before_process hook.
package Bugzilla::Template::Context;
+
+use 5.10.1;
use strict;
+
use base qw(Template::Context);
use Bugzilla::Hook;
package Bugzilla::Template::Plugin::Bugzilla;
+use 5.10.1;
use strict;
use base qw(Template::Plugin);
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Template::Plugin::Hook;
+
+use 5.10.1;
use strict;
+
use base qw(Template::Plugin);
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Module Initialization
-################################################################################
+package Bugzilla::Token;
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-# Bundle the functions in this file together into the "Bugzilla::Token" package.
-package Bugzilla::Token;
-
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Mailer;
package Bugzilla::Update;
+use 5.10.1;
use strict;
use Bugzilla::Constants;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Module Initialization
-################################################################################
+package Bugzilla::User;
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-# This module implements utilities for dealing with Bugzilla users.
-package Bugzilla::User;
-
use Bugzilla::Error;
use Bugzilla::Util;
use Bugzilla::Constants;
package Bugzilla::User::Setting;
+use 5.10.1;
use strict;
+
use base qw(Exporter);
package Bugzilla::User::Setting::Lang;
+use 5.10.1;
use strict;
use base qw(Bugzilla::User::Setting);
package Bugzilla::User::Setting::Skin;
+use 5.10.1;
use strict;
use base qw(Bugzilla::User::Setting);
package Bugzilla::User::Setting::Timezone;
+use 5.10.1;
use strict;
use DateTime::TimeZone;
package Bugzilla::UserAgent;
+use 5.10.1;
use strict;
+
use base qw(Exporter);
our @EXPORT = qw(detect_platform detect_op_sys);
package Bugzilla::Util;
+use 5.10.1;
use strict;
-use feature ':5.10';
use base qw(Exporter);
@Bugzilla::Util::EXPORT = qw(trick_taint detaint_natural detaint_signed
css_class_quote html_light_quote
i_am_cgi correct_urlbase remote_ip validate_ip
do_ssl_redirect_if_required use_attachbase
- diff_arrays on_main_db say
+ diff_arrays on_main_db
trim wrap_hard wrap_comment find_wrap_point
format_time validate_date validate_time datetime_from
is_7bit_clean bz_crypt generate_random_password
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Version;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Install::Util qw(vers_cmp);
# This is the base class for $self in WebService method calls. For the
# actual RPC server, see Bugzilla::WebService::Server and its subclasses.
package Bugzilla::WebService;
+
+use 5.10.1;
use strict;
+
use Bugzilla::WebService::Server;
# Used by the JSON-RPC server to convert incoming date fields apprpriately.
package Bugzilla::WebService::Bug;
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::WebService);
use Bugzilla::Comment;
package Bugzilla::WebService::Bugzilla;
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::WebService);
use Bugzilla::Constants;
use Bugzilla::Util qw(datetime_from);
package Bugzilla::WebService::Constants;
+use 5.10.1;
use strict;
+
use base qw(Exporter);
our @EXPORT = qw(
package Bugzilla::WebService::Group;
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::WebService);
use Bugzilla::Constants;
use Bugzilla::Error;
package Bugzilla::WebService::Product;
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::WebService);
use Bugzilla::Product;
use Bugzilla::User;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::WebService::Server;
+
+use 5.10.1;
use strict;
use Bugzilla::Error;
package Bugzilla::WebService::Server::JSONRPC;
+use 5.10.1;
use strict;
+
use Bugzilla::WebService::Server;
BEGIN {
our @ISA = qw(Bugzilla::WebService::Server);
package Bugzilla::WebService::Server::XMLRPC;
+use 5.10.1;
use strict;
+
use XMLRPC::Transport::HTTP;
use Bugzilla::WebService::Server;
if ($ENV{MOD_PERL}) {
# This exists to validate input parameters (which XMLRPC::Lite doesn't do)
# and also, in some cases, to more-usefully decode them.
package Bugzilla::XMLRPC::Deserializer;
+
+use 5.10.1;
use strict;
+
# We can't use "use base" because XMLRPC::Serializer doesn't return
# a true value.
use XMLRPC::Lite;
1;
package Bugzilla::XMLRPC::SOM;
+
+use 5.10.1;
use strict;
+
use XMLRPC::Lite;
our @ISA = qw(XMLRPC::SOM);
use Bugzilla::WebService::Util qw(taint_data);
# This package exists to fix a UTF-8 bug in SOAP::Lite.
# See http://rt.cpan.org/Public/Bug/Display.html?id=32952.
package Bugzilla::XMLRPC::Serializer;
-use Scalar::Util qw(blessed);
+
+use 5.10.1;
use strict;
+
+use Scalar::Util qw(blessed);
# We can't use "use base" because XMLRPC::Serializer doesn't return
# a true value.
use XMLRPC::Lite;
package Bugzilla::WebService::User;
+use 5.10.1;
use strict;
+
use base qw(Bugzilla::WebService);
-use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Group;
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::WebService::Util;
+
+use 5.10.1;
use strict;
+
use base qw(Exporter);
# We have to "require", not "use" this, because otherwise it tries to
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Whine;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Constants;
package Bugzilla::Whine::Query;
+use 5.10.1;
use strict;
use base qw(Bugzilla::Object);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-use strict;
-
package Bugzilla::Whine::Schedule;
+use 5.10.1;
+use strict;
+
use base qw(Bugzilla::Object);
use Bugzilla::Constants;
# 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 lib qw(. lib);
use Bugzilla;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
use Bugzilla::User;
use Bugzilla::Util;
use Bugzilla::Bug;
-use Bugzilla::Field;
use Bugzilla::Attachment;
use Bugzilla::Attachment::PatchReader;
use Bugzilla::Token;
-use Bugzilla::Keyword;
use Encode qw(encode find_encoding);
local our $template = Bugzilla->template;
local our $vars = {};
-################################################################################
-# Main Body Execution
-################################################################################
-
# All calls to this script should contain an "action" variable whose
# value determines what the user wants to do. The code below checks
# the value of that variable and runs the appropriate code. If none is
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
# Bonus:
# Offer subscription when you get a "series already exists" error?
+use 5.10.1;
use strict;
use lib qw(. lib);
use Bugzilla::Util;
use Bugzilla::Chart;
use Bugzilla::Series;
-use Bugzilla::User;
use Bugzilla::Token;
# For most scripts we don't make $cgi and $template global variables. But
# 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 lib qw(. lib);
use Bugzilla::CGI;
use Bugzilla::Search::Saved;
use Bugzilla::Error;
-use Bugzilla::User;
use Bugzilla::Token;
use Storable qw(dclone);
# 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 lib qw(. lib);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
package Bugzilla;
+use 5.10.1;
use strict;
#######################################################################
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
-use Bugzilla::User;
use Bugzilla::Keyword;
my $user = Bugzilla->login();
package Pod::Simple::HTML::Bugzilla;
+use 5.10.1;
use strict;
+
use base qw(Pod::Simple::HTML);
# Without this constant, HTMLBatch will throw undef warnings.
package Pod::Simple::HTMLBatch::Bugzilla;
+use 5.10.1;
use strict;
+
use base qw(Pod::Simple::HTMLBatch);
# This is the same hack that HTMLBatch does to "import" this subroutine.
# This script compiles all the documentation.
+use 5.10.1;
use strict;
+
use Cwd;
# We need to be in this directory to use our libraries.
my ($name, $cmdline) = @_;
- print "Creating $name documentation ...\n" if defined $name;
- print "$cmdline\n\n";
+ say "Creating $name documentation ..." if defined $name;
+ say "$cmdline\n";
system $cmdline;
print "\n";
sub make_pod {
- print "Creating API documentation...\n";
+ say "Creating API documentation...";
my $converter = Pod::Simple::HTMLBatch::Bugzilla->new;
# Don't output progress information.
# 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 lib qw(. lib);
# defined by the Mozilla Public License, v. 2.0.
+use 5.10.1;
use strict;
use lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
use lib qw(. lib);
-# Use Bugzilla's flag modules for handling flag types.
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Flag;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# or select boxes. It is largely a copy of editmilestones.cgi, but
# with some cleanup.
+use 5.10.1;
use strict;
use lib qw(. lib);
# 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 lib qw(. lib);
# Script Initialization
################################################################################
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use Bugzilla;
# 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 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
+
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Error;
close($fh);
}
-print get_text('extension_created', $vars), "\n";
+say get_text('extension_created', $vars);
__END__
# a new bug into bugzilla. Everything before the beginning <?xml line
# is removed so you can pipe in email messages.
+use 5.10.1;
use strict;
#####################################################################
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-###############################################################################
-# Script Initialization
-###############################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-
-# Include the Bugzilla CGI and general utility library.
use lib qw(. lib);
use Bugzilla;
$cgi->delete('logout');
}
-###############################################################################
-# Main Body Execution
-###############################################################################
-
# Return the appropriate HTTP response headers.
print $cgi->header();
# 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;
# 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 Cwd qw(abs_path);
# 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 lib qw(. lib);
# 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 File::Basename;
BEGIN { chdir dirname($0); }
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::ModPerl;
+
+use 5.10.1;
use strict;
use warnings;
}
package Bugzilla::ModPerl::ResponseHandler;
+
+use 5.10.1;
use strict;
+
use base qw(ModPerl::Registry);
use Bugzilla;
package Bugzilla::ModPerl::CleanupHandler;
+
+use 5.10.1;
use strict;
+
use Apache2::Const -compile => qw(OK);
sub handler {
# a content-type, e.g. html.
###############################################################################
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use Bugzilla::Error;
use Bugzilla::Bug;
use Bugzilla::User;
-use Bugzilla::Field;
use Bugzilla::Hook;
-use Bugzilla::Product;
-use Bugzilla::Component;
-use Bugzilla::Keyword;
use Bugzilla::Token;
use Bugzilla::Flag;
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
# 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 lib qw(. lib);
use Bugzilla;
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-################################################################################
-# Script Initialization
-################################################################################
-
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
print $cgi->header();
-################################################################################
-# Main Body Execution
-################################################################################
-
my $fields;
$fields->{'requester'}->{'type'} = 'single';
# If the user doesn't restrict his search to requests from the wind
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
-# Make it harder for us to do dangerous things in Perl.
+use 5.10.1;
use diagnostics;
use strict;
use lib qw(lib);
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use File::Temp;
# 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 lib qw(. lib);
use Bugzilla;
# 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 lib qw(. lib);
use Date::Parse; # strptime
use Support::Files;
-use Test::More tests => (scalar(@Support::Files::testitems) * 3);
+use Test::More tests => (scalar(@Support::Files::testitems) * 4);
my @testitems = @Support::Files::testitems; # get the files to test.
}
}
+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");
+ } else {
+ ok(0,"$file DOES NOT require Perl 5.10.1 --WARNING");
+ }
+}
+
# Check to see that all error messages use tags (for l10n reasons.)
foreach my $file (@testitems) {
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
# are being run instead of shown. This script does not rely on database access
# or correct params.
+use 5.10.1;
use strict;
-print "content-type:text/plain\n\n";
-print "OK " . ($::ENV{MOD_PERL} || "mod_cgi") . "\n";
+
+say "content-type:text/plain\n";
+say "OK " . ($::ENV{MOD_PERL} || "mod_cgi");
exit;
# as its only argument. It attempts to troubleshoot as many installation
# issues as possible.
+use 5.10.1;
use strict;
use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
-use Bugzilla::Util qw(say);
use Socket;
# 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 lib qw(. lib);
# 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 lib qw(. lib);
use Bugzilla;
# This script remains as a backwards-compatibility URL for before
# the time that Voting was an extension.
+use 5.10.1;
use strict;
use lib qw(. lib);
+
use Bugzilla;
use Bugzilla::Error;
# Script Initialization
################################################################################
+use 5.10.1;
use strict;
-
use lib qw(. lib);
use Bugzilla;
# param. (We have NEW and REOPENED in there to keep compatibility with old
# Bugzillas.)
+use 5.10.1;
use strict;
use lib qw(. lib);
# 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 lib qw(. lib);
projects / thirdparty / bugzilla.git / commitdiff
