From: bbaetz%student.usyd.edu.au <> Date: Mon, 26 Aug 2002 13:16:47 +0000 (+0000) Subject: Bug 76923 - Don't |use diagnostics| (its really expensive at startup time) X-Git-Tag: bugzilla-2.17.1~169 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5b18c51fdfab10bd25a17e9e729aedf4782cd6f7;p=thirdparty%2Fbugzilla.git Bug 76923 - Don't |use diagnostics| (its really expensive at startup time) r=joel x2 --- diff --git a/Attachment.pm b/Attachment.pm index b4216d4c65..3a6248cf45 100644 --- a/Attachment.pm +++ b/Attachment.pm @@ -24,7 +24,6 @@ # Module Initialization ############################################################################ -use diagnostics; use strict; package Attachment; diff --git a/Bug.pm b/Bug.pm index 51b51cec90..7857cb9244 100755 --- a/Bug.pm +++ b/Bug.pm @@ -21,7 +21,6 @@ # Terry Weissman # Chris Yeh -use diagnostics; use strict; use DBI; diff --git a/Bugzilla/Attachment.pm b/Bugzilla/Attachment.pm index b4216d4c65..3a6248cf45 100644 --- a/Bugzilla/Attachment.pm +++ b/Bugzilla/Attachment.pm @@ -24,7 +24,6 @@ # Module Initialization ############################################################################ -use diagnostics; use strict; package Attachment; diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm index 51b51cec90..7857cb9244 100755 --- a/Bugzilla/Bug.pm +++ b/Bugzilla/Bug.pm @@ -21,7 +21,6 @@ # Terry Weissman # Chris Yeh -use diagnostics; use strict; use DBI; diff --git a/Bugzilla/RelationSet.pm b/Bugzilla/RelationSet.pm index 8668519b9d..a3af4b60a9 100644 --- a/Bugzilla/RelationSet.pm +++ b/Bugzilla/RelationSet.pm @@ -29,7 +29,6 @@ # might involve turning this into a virtual base class, and having # UserSet and KeywordSet types that inherit from it. -use diagnostics; use strict; # Everything that uses RelationSet should already have globals.pl loaded diff --git a/Bugzilla/Search.pm b/Bugzilla/Search.pm index 562a68e483..b8cc9fed83 100644 --- a/Bugzilla/Search.pm +++ b/Bugzilla/Search.pm @@ -25,7 +25,6 @@ # Myk Melez # Michael Schindler -use diagnostics; use strict; require "globals.pl"; diff --git a/Bugzilla/Token.pm b/Bugzilla/Token.pm index 78eef9335f..6d0741133e 100644 --- a/Bugzilla/Token.pm +++ b/Bugzilla/Token.pm @@ -24,7 +24,6 @@ ################################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; # Bundle the functions in this file together into the "Token" package. diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 74e7c1fe67..3fe3a37ea1 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -69,7 +69,6 @@ use base qw(Exporter); trim); use strict; -use diagnostics; =head1 FUNCTIONS diff --git a/CGI.pl b/CGI.pl index b2316d555d..69819263a1 100644 --- a/CGI.pl +++ b/CGI.pl @@ -27,7 +27,6 @@ # Contains some global routines used throughout the CGI scripts of Bugzilla. -use diagnostics; use strict; use lib "."; diff --git a/RelationSet.pm b/RelationSet.pm index 8668519b9d..a3af4b60a9 100644 --- a/RelationSet.pm +++ b/RelationSet.pm @@ -29,7 +29,6 @@ # might involve turning this into a virtual base class, and having # UserSet and KeywordSet types that inherit from it. -use diagnostics; use strict; # Everything that uses RelationSet should already have globals.pl loaded diff --git a/Token.pm b/Token.pm index 78eef9335f..6d0741133e 100644 --- a/Token.pm +++ b/Token.pm @@ -24,7 +24,6 @@ ################################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; # Bundle the functions in this file together into the "Token" package. diff --git a/attachment.cgi b/attachment.cgi index a94ebc8357..43b2b49403 100755 --- a/attachment.cgi +++ b/attachment.cgi @@ -26,7 +26,6 @@ ################################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; use lib qw(.); diff --git a/bug_form.pl b/bug_form.pl index c4d623e129..e6b59e0510 100644 --- a/bug_form.pl +++ b/bug_form.pl @@ -21,7 +21,6 @@ # Dave Miller # Vaskin Kissoyan -use diagnostics; use strict; use RelationSet; diff --git a/buglist.cgi b/buglist.cgi index cf25811da8..c5359c6e3b 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -29,7 +29,6 @@ ################################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; use lib qw(.); diff --git a/checksetup.pl b/checksetup.pl index 7ff6abada9..8bba2996b8 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -94,7 +94,6 @@ # Global definitions ########################################################################### -use diagnostics; use strict; # 12/17/00 justdave@syndicomm.com - removed declarations of the localconfig diff --git a/colchange.cgi b/colchange.cgi index 4b1cfc8198..2ef7c7d102 100755 --- a/colchange.cgi +++ b/colchange.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/collectstats.pl b/collectstats.pl index a47e2174de..8caf92d778 100755 --- a/collectstats.pl +++ b/collectstats.pl @@ -26,7 +26,6 @@ use AnyDBM_File; -use diagnostics; use strict; use vars @::legal_product; diff --git a/contrib/BugzillaEmail.pm b/contrib/BugzillaEmail.pm index aaba0f4e0a..48602cdb71 100644 --- a/contrib/BugzillaEmail.pm +++ b/contrib/BugzillaEmail.pm @@ -29,7 +29,6 @@ push @INC, "../."; # this script now lives in contrib require "globals.pl"; -use diagnostics; use strict; my $EMAIL_TRANSFORM_NONE = "email_transform_none"; diff --git a/contrib/bug_email.pl b/contrib/bug_email.pl index 94338dbfb2..fb2bbec4d8 100755 --- a/contrib/bug_email.pl +++ b/contrib/bug_email.pl @@ -37,7 +37,7 @@ # # You need to work with bug_email.pl the MIME::Parser installed. # -# $Id: bug_email.pl,v 1.12 2002/08/17 14:19:57 bbaetz%student.usyd.edu.au Exp $ +# $Id: bug_email.pl,v 1.13 2002/08/26 06:17:21 bbaetz%student.usyd.edu.au Exp $ ############################################################### # 02/12/2000 (SML) @@ -66,7 +66,6 @@ # - integrate some setup in the checksetup.pl script # - gpg signatures for security -use diagnostics; use strict; use MIME::Parser; diff --git a/contrib/bugzilla_email_append.pl b/contrib/bugzilla_email_append.pl index 826b49198f..7e1de847ba 100755 --- a/contrib/bugzilla_email_append.pl +++ b/contrib/bugzilla_email_append.pl @@ -28,7 +28,6 @@ # 1. better way to get the body text (I don't know what dump_entity() is # actually doing -use diagnostics; use strict; use MIME::Parser; diff --git a/contrib/mysqld-watcher.pl b/contrib/mysqld-watcher.pl index ccc1f38783..30945a5ff5 100755 --- a/contrib/mysqld-watcher.pl +++ b/contrib/mysqld-watcher.pl @@ -23,7 +23,6 @@ # mysqld-watcher.pl - a script that watches the running instance of # mysqld and kills off any long-running SELECTs against the shadow_db # -use diagnostics; use strict; # some configurables: diff --git a/createaccount.cgi b/createaccount.cgi index 8a5b85782b..79be1bb64f 100755 --- a/createaccount.cgi +++ b/createaccount.cgi @@ -24,7 +24,6 @@ # Christopher Aillon # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/defparams.pl b/defparams.pl index 4f30f85a9f..67870893d7 100644 --- a/defparams.pl +++ b/defparams.pl @@ -33,7 +33,6 @@ # Only adding new parameters is done here. Once the parameter exists, you # must use %baseurl%/editparams.cgi from the web to edit the settings. -use diagnostics; use strict; # Shut up misguided -w warnings about "used only once". For some reason, diff --git a/describecomponents.cgi b/describecomponents.cgi index edf9349aba..9edb5dfa00 100755 --- a/describecomponents.cgi +++ b/describecomponents.cgi @@ -27,7 +27,6 @@ use vars qw( $userid ); -use diagnostics; use strict; use lib qw(.); diff --git a/describekeywords.cgi b/describekeywords.cgi index 503e0d5a33..07f08d09b8 100755 --- a/describekeywords.cgi +++ b/describekeywords.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # Contributor(s): Gervase Markham -use diagnostics; use strict; use lib "."; diff --git a/doeditparams.cgi b/doeditparams.cgi index c237a19974..b7c8349792 100755 --- a/doeditparams.cgi +++ b/doeditparams.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # J. Paul Reed -use diagnostics; use strict; use lib qw(.); diff --git a/duplicates.cgi b/duplicates.cgi index 2d46e0d799..285c657175 100755 --- a/duplicates.cgi +++ b/duplicates.cgi @@ -23,7 +23,6 @@ # Generates mostfreq list from data collected by collectstats.pl. -use diagnostics; use strict; use AnyDBM_File; diff --git a/editattachstatuses.cgi b/editattachstatuses.cgi index ff78221813..eedf2add4c 100755 --- a/editattachstatuses.cgi +++ b/editattachstatuses.cgi @@ -26,7 +26,6 @@ ################################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; use lib "."; diff --git a/editcomponents.cgi b/editcomponents.cgi index 3f16197392..7ad81ddfa5 100755 --- a/editcomponents.cgi +++ b/editcomponents.cgi @@ -25,7 +25,6 @@ # # Holger Schurig -use diagnostics; use strict; use lib "."; diff --git a/editgroups.cgi b/editgroups.cgi index 623cf47d3e..cd18057929 100755 --- a/editgroups.cgi +++ b/editgroups.cgi @@ -23,7 +23,6 @@ # Code derived from editowners.cgi and editusers.cgi -use diagnostics; use strict; use lib "."; diff --git a/editkeywords.cgi b/editkeywords.cgi index 1b8d6ef307..ed298ef9bb 100755 --- a/editkeywords.cgi +++ b/editkeywords.cgi @@ -20,7 +20,6 @@ # # Contributor(s): Terry Weissman -use diagnostics; use strict; use lib "."; diff --git a/editmilestones.cgi b/editmilestones.cgi index 67d84fccea..c7d598bea6 100755 --- a/editmilestones.cgi +++ b/editmilestones.cgi @@ -13,7 +13,6 @@ # -use diagnostics; use strict; use lib "."; diff --git a/editparams.cgi b/editparams.cgi index 0e1b7161f4..ef9e149465 100755 --- a/editparams.cgi +++ b/editparams.cgi @@ -22,7 +22,6 @@ # J. Paul Reed -use diagnostics; use strict; use lib "."; diff --git a/editproducts.cgi b/editproducts.cgi index 4b0698b359..520e46d503 100755 --- a/editproducts.cgi +++ b/editproducts.cgi @@ -27,7 +27,6 @@ # # Holger Schurig -use diagnostics; use strict; use lib "."; diff --git a/editusers.cgi b/editusers.cgi index 0e25f0ac38..4586345af6 100755 --- a/editusers.cgi +++ b/editusers.cgi @@ -27,7 +27,6 @@ # # Holger Schurig -use diagnostics; use strict; use lib "."; diff --git a/editversions.cgi b/editversions.cgi index abeed25703..5f420af437 100755 --- a/editversions.cgi +++ b/editversions.cgi @@ -26,7 +26,6 @@ # # Holger Schurig -use diagnostics; use strict; use lib "."; diff --git a/enter_bug.cgi b/enter_bug.cgi index 83f1126f93..7aa6dfc668 100755 --- a/enter_bug.cgi +++ b/enter_bug.cgi @@ -32,7 +32,6 @@ # ############################################################################## -use diagnostics; use strict; use lib qw(.); diff --git a/globals.pl b/globals.pl index b437d343f9..164bad727c 100644 --- a/globals.pl +++ b/globals.pl @@ -25,7 +25,6 @@ # Contains some global variables and routines used throughout bugzilla. -use diagnostics; use strict; use Bugzilla::Util; diff --git a/importxml.pl b/importxml.pl index 092170c03c..1777bfc4a0 100755 --- a/importxml.pl +++ b/importxml.pl @@ -25,7 +25,6 @@ # a new bug into bugzilla. Everything before the beginning # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/move.pl b/move.pl index 66a75f95fb..65592b02f5 100755 --- a/move.pl +++ b/move.pl @@ -21,7 +21,6 @@ # Contributor(s): Dawn Endico # Terry Weissman -use diagnostics; use strict; use lib qw(.); diff --git a/page.cgi b/page.cgi index fb53f8b47e..cc26f93db8 100755 --- a/page.cgi +++ b/page.cgi @@ -28,7 +28,6 @@ # either case), numbers 0-9, the underscore "_" and the hyphen "-". ############################################################################### -use diagnostics; use strict; use lib "."; diff --git a/post_bug.cgi b/post_bug.cgi index 55ee273017..bab55a9aca 100755 --- a/post_bug.cgi +++ b/post_bug.cgi @@ -23,7 +23,6 @@ # Joe Robins # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/process_bug.cgi b/process_bug.cgi index 653c365ceb..a346160587 100755 --- a/process_bug.cgi +++ b/process_bug.cgi @@ -24,7 +24,6 @@ # Christopher Aillon # Myk Melez -use diagnostics; use strict; my $UserInEditGroupSet = -1; diff --git a/processmail b/processmail index 8d4dc4b699..5a1460c18f 100755 --- a/processmail +++ b/processmail @@ -25,7 +25,6 @@ # Jacob Steenhagen # Matthew Tuck -use diagnostics; use strict; use lib "."; diff --git a/query.cgi b/query.cgi index af4b54164b..2ce9007677 100755 --- a/query.cgi +++ b/query.cgi @@ -23,7 +23,6 @@ # Matthias Radestock # Gervase Markham -use diagnostics; use strict; use lib "."; diff --git a/queryhelp.cgi b/queryhelp.cgi index 16acf73f1f..bfd7c0f697 100755 --- a/queryhelp.cgi +++ b/queryhelp.cgi @@ -24,7 +24,6 @@ use vars %::FORM; -use diagnostics; use strict; use lib qw(.); diff --git a/quips.cgi b/quips.cgi index a50bbc54a8..7db312c61a 100755 --- a/quips.cgi +++ b/quips.cgi @@ -22,7 +22,6 @@ # Gervase Markham # David Fallon -use diagnostics; use strict; use vars qw( diff --git a/relogin.cgi b/relogin.cgi index 3bab9fdc54..493f5c200f 100755 --- a/relogin.cgi +++ b/relogin.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # Gervase Markham -use diagnostics; use strict; use vars %::COOKIE; diff --git a/reports.cgi b/reports.cgi index ac77c89fd9..f557ac7f6b 100755 --- a/reports.cgi +++ b/reports.cgi @@ -38,7 +38,6 @@ # Myk Melez # Matthew Tuck -use diagnostics; use strict; use lib qw(.); diff --git a/show_activity.cgi b/show_activity.cgi index 59e43b6724..f6d9b75c9d 100755 --- a/show_activity.cgi +++ b/show_activity.cgi @@ -22,7 +22,6 @@ # Myk Melez # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/show_bug.cgi b/show_bug.cgi index f832a2930e..6711ff7e61 100755 --- a/show_bug.cgi +++ b/show_bug.cgi @@ -20,7 +20,6 @@ # # Contributor(s): Terry Weissman -use diagnostics; use strict; use lib qw(.); diff --git a/showattachment.cgi b/showattachment.cgi index 4aaf6f17df..0c93483bd8 100755 --- a/showattachment.cgi +++ b/showattachment.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # Jacob Steenhagen -use diagnostics; use strict; use lib qw(.); diff --git a/showdependencygraph.cgi b/showdependencygraph.cgi index 2a5d20f6c3..e5885d180f 100755 --- a/showdependencygraph.cgi +++ b/showdependencygraph.cgi @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/showdependencytree.cgi b/showdependencytree.cgi index 9b70605912..7917f00fec 100755 --- a/showdependencytree.cgi +++ b/showdependencytree.cgi @@ -23,7 +23,6 @@ # Christian Reis # Myk Melez -use diagnostics; use strict; use lib qw(.); diff --git a/sidebar.cgi b/sidebar.cgi index 2805547cfe..4f40d3cc0e 100755 --- a/sidebar.cgi +++ b/sidebar.cgi @@ -16,7 +16,6 @@ # Contributor(s): Jacob Steenhagen use strict; -use diagnostics; use lib "."; require "CGI.pl"; diff --git a/syncshadowdb b/syncshadowdb index 18c4528dc3..ffe87eea3e 100755 --- a/syncshadowdb +++ b/syncshadowdb @@ -21,7 +21,6 @@ # Contributor(s): Terry Weissman # David Gardiner -use diagnostics; use strict; require "globals.pl"; diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm index 07f46f7004..c12f6ddcc8 100644 --- a/t/Support/Templates.pm +++ b/t/Support/Templates.pm @@ -23,7 +23,6 @@ package Support::Templates; -use diagnostics; use strict; use lib 't'; diff --git a/token.cgi b/token.cgi index 2225e4f8bd..43ee1b04e3 100755 --- a/token.cgi +++ b/token.cgi @@ -25,7 +25,6 @@ ############################################################################ # Make it harder for us to do dangerous things in Perl. -use diagnostics; use strict; use lib qw(.); diff --git a/userprefs.cgi b/userprefs.cgi index cf58cf2652..33b3775748 100755 --- a/userprefs.cgi +++ b/userprefs.cgi @@ -20,7 +20,6 @@ # Christopher Aillon # Gervase Markham -use diagnostics; use strict; use lib qw(.); diff --git a/votes.cgi b/votes.cgi index 513add4c33..88e3039712 100755 --- a/votes.cgi +++ b/votes.cgi @@ -23,7 +23,6 @@ # Christopher Aillon # Gervase Markham -use diagnostics; use strict; use lib "."; diff --git a/whineatnews.pl b/whineatnews.pl index b364836a59..2a3bdf1b92 100755 --- a/whineatnews.pl +++ b/whineatnews.pl @@ -26,7 +26,6 @@ # assigned to them that has status NEW that has not been touched for # more than 7 days. -use diagnostics; use strict; require "globals.pl"; diff --git a/xml.cgi b/xml.cgi index 8a0bbf1e45..219a39c749 100755 --- a/xml.cgi +++ b/xml.cgi @@ -22,7 +22,6 @@ # Terry Weissman # Gervase Markham -use diagnostics; use strict; use lib qw(.);