X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FDebug.pm;h=566561865289a2fbf1237303d377de1d992f65c2;hb=ab531790e394d5e89c031143029ee9f3b66e12dc;hp=dad88734b1a8d72f7c92cc315ee13787408ad90d;hpb=7279f55b60e02780df6b65c4c92ade9f413d5c01;p=koha.git diff --git a/C4/Debug.pm b/C4/Debug.pm index dad88734b1..5665618652 100644 --- a/C4/Debug.pm +++ b/C4/Debug.pm @@ -4,30 +4,29 @@ package C4::Debug; # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use strict; use warnings; use Exporter; -# use CGI; -use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug); +# use CGI qw ( -utf8 ); +use vars qw(@ISA @EXPORT $debug $cgi_debug); # use vars qw(@EXPORT_OK %EXPORT_TAGS); BEGIN { - $VERSION = 1.00; # set the version for version checking @ISA = qw(Exporter); @EXPORT = qw($debug $cgi_debug); # @EXPOR_OK = qw(); @@ -74,8 +73,8 @@ BEGIN { __END__ =head1 NAME - - C4::Debug - Standardized, centralized, exported debug switches. + +C4::Debug - Standardized, centralized, exported debug switches. =head1 SYNOPSIS @@ -116,7 +115,7 @@ The general purpose debug switch. =over =item environmental variable DEBUG or KOHA_DEBUG. In bash, you might do: - + export KOHA_DEBUG=1; perl t/Auth.t; @@ -127,7 +126,6 @@ command with ERROR_LOG enabled for your VirtualHost. Not intended for productio =item You can force the value from perl directly, like: use C4::Debug; - use C4::Dates; BEGIN { $C4::Debug::debug = 1; } # now any other dependencies that also use C4::Debug will have debugging ON. @@ -159,6 +157,8 @@ emailing yourself a test message would all be bad actions to tie to $cgi_debug. =head2 System Preferences +=cut + =head2 Database Debug Debugging at the database level might be useful. Koha does not currently integrate any such