[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    bugs/bugz
From:       Dirk Mueller <mueller () kde ! org>
Date:       2005-07-12 23:07:00
Message-ID: 1121209620.713500.16292.nullmailer () svn ! kde ! org
[Download RAW message or body]

SVN commit 434089 by mueller:

low hanging speedup: don't "use diagnostics", removes 300ms 
execution time per usage


 M  +0 -1      KDE.pm  
 M  +0 -1      bug_email.pl  
 M  +0 -1      component-report.cgi  
 M  +0 -1      find-traces.pl  
 M  +0 -1      mail_reporters.pl  
 M  +0 -1      old-bugs-statistics.cgi  
 M  +0 -1      old-bugs-utils.pl  
 M  +0 -1      simple-dup-finder.cgi  
 M  +0 -1      simple_search.cgi  
 M  +0 -1      simple_search.pl  
 M  +0 -1      weekly-bug-summary.cgi  
 M  +0 -1      weekly-summary-utils.pl  
 M  +0 -1      wizard.cgi  
 M  +2 -0      wizard_include.pl  
 M  +0 -1      xml.cgi  


--- trunk/bugs/bugz/KDE.pm #434088:434089
@@ -1,4 +1,3 @@
-use diagnostics;
 use strict;
 
 use DBI;
--- trunk/bugs/bugz/bug_email.pl #434088:434089
@@ -36,7 +36,6 @@
 # How to process mail that was saved to a file:
 # file=.... RECIPIENT=`grep ^To $file | sed -e 's/To:[ ]*//'` ./bug_email.pl < $file
 
-use diagnostics;
 use strict;
 use MIME::Parser;
 
--- trunk/bugs/bugz/component-report.cgi #434088:434089
@@ -57,7 +57,6 @@
 #   (2) will work just fine.
 
 
-use diagnostics;
 use strict;
 
 eval "use GD";
--- trunk/bugs/bugz/find-traces.pl #434088:434089
@@ -1,5 +1,4 @@
 # -*- Mode: perl; indent-tabs-mode: nil -*-
-use diagnostics;
 use strict;
 
 =head1 get_traces_from_string
--- trunk/bugs/bugz/mail_reporters.pl #434088:434089
@@ -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";
--- trunk/bugs/bugz/old-bugs-statistics.cgi #434088:434089
@@ -20,7 +20,6 @@
 #		- Use percentages for the diff figures.
 #		- Unbreak $selected
 
-use diagnostics;
 use strict;
 
 use lib qw(.);
--- trunk/bugs/bugz/old-bugs-utils.pl #434088:434089
@@ -19,7 +19,6 @@
 #        - Some products have way too many bugs. Break it down via component.
 #        - Use percentages for the diff figures.
 
-use diagnostics;
 use strict;
 
 require "CGI.pl";
--- trunk/bugs/bugz/simple-dup-finder.cgi #434088:434089
@@ -16,7 +16,6 @@
 #83904 is a dup of 78700 but not vice-versa
 #'no symbol table info available' is not dealt with, should be
 
-use diagnostics;
 use strict;
 
 require "CGI.pl";
--- trunk/bugs/bugz/simple_search.cgi #434088:434089
@@ -20,7 +20,6 @@
 #
 # Contributor(s): Daniel Naber <daniel.naber@t-online.de>
 
-use diagnostics;
 use strict;
 
 use lib qw(.);
--- trunk/bugs/bugz/simple_search.pl #434088:434089
@@ -27,7 +27,6 @@
 ### TODO: if we add security bugs that are not visible to
 ### anybody, this scripts needs to be modified, too.
 
-use diagnostics;
 use strict;
 
 sub search_for_text( $$ )  {
--- trunk/bugs/bugz/weekly-bug-summary.cgi #434088:434089
@@ -19,7 +19,6 @@
 #		- Some products have way too many bugs. Break it down via component.
 #		- Use percentages for the diff figures.
 
-use diagnostics;
 #use POSIX qw(strftime);
 use strict;
 
--- trunk/bugs/bugz/weekly-summary-utils.pl #434088:434089
@@ -19,7 +19,6 @@
 #        - Some products have way too many bugs. Break it down via component.
 #        - Use percentages for the diff figures.
 
-use diagnostics;
 use strict;
 
 require "CGI.pl";
--- trunk/bugs/bugz/wizard.cgi #434088:434089
@@ -3,7 +3,6 @@
 #
 
 # Make it harder for us to do dangerous things in Perl.
-use diagnostics;
 use strict;
 
 use lib qw(.);
--- trunk/bugs/bugz/wizard_include.pl #434088:434089
@@ -211,6 +211,8 @@
     my $value = $app;
     my $description = "";
 
+    return ("/", $description) if (not defined($value));
+
     if ($app =~ m,^([^/]*)/(.*)$,) {
         SendSQL("SELECT description FROM components WHERE program = " . SqlQuote($1) \
. " AND value = " . SqlQuote($2) . ";");  $description = FetchOneColumn();
--- trunk/bugs/bugz/xml.cgi #434088:434089
@@ -22,7 +22,6 @@
 #                 Terry Weissman <terry@mozilla.org>
 #                 Gervase Markham <gerv@gerv.net>
 
-use diagnostics;
 use strict;
 
 use lib qw(.);


[prev in list] [next in list] [prev in thread] [next in thread]