Bug 19996: (QA follow-up) Remove commented use warnings;

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
2018-02-04 15:26:58 +01:00 · 2018-02-04 15:26:58 +01:00 · f477c078d8
parent 70b4176b19
commit f477c078d8
50 changed files with 21 additions and 55 deletions
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@ -21,7 +21,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use CGI q(-utf8);
 use C4::Output;
 use C4::Auth;
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@ -21,7 +21,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
--- a/cataloguing/moveitem.pl
+++ b/cataloguing/moveitem.pl
@ -21,7 +21,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
--- a/cataloguing/value_builder/unimarc_field_100.pl
+++ b/cataloguing/value_builder/unimarc_field_100.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use Date::Calc qw( Today );

 use Koha::Util::FrameworkPlugin qw(wrapper);
--- a/cataloguing/value_builder/unimarc_field_105.pl
+++ b/cataloguing/value_builder/unimarc_field_105.pl
@ -20,8 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
-
 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
 use CGI qw ( -utf8 );
--- a/cataloguing/value_builder/unimarc_field_106.pl
+++ b/cataloguing/value_builder/unimarc_field_106.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_110.pl
+++ b/cataloguing/value_builder/unimarc_field_110.pl
@ -20,8 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
-
 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
 use CGI qw ( -utf8 );
--- a/cataloguing/value_builder/unimarc_field_115a.pl
+++ b/cataloguing/value_builder/unimarc_field_115a.pl
@ -20,8 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
-
 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
 use CGI qw ( -utf8 );
--- a/cataloguing/value_builder/unimarc_field_115b.pl
+++ b/cataloguing/value_builder/unimarc_field_115b.pl
@ -20,8 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
-
 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
 use CGI qw ( -utf8 );
--- a/cataloguing/value_builder/unimarc_field_116.pl
+++ b/cataloguing/value_builder/unimarc_field_116.pl
@ -20,8 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
-
 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
 use CGI qw ( -utf8 );
--- a/cataloguing/value_builder/unimarc_field_117.pl
+++ b/cataloguing/value_builder/unimarc_field_117.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_120.pl
+++ b/cataloguing/value_builder/unimarc_field_120.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_121a.pl
+++ b/cataloguing/value_builder/unimarc_field_121a.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_121b.pl
+++ b/cataloguing/value_builder/unimarc_field_121b.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_122.pl
+++ b/cataloguing/value_builder/unimarc_field_122.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123a.pl
+++ b/cataloguing/value_builder/unimarc_field_123a.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123d.pl
+++ b/cataloguing/value_builder/unimarc_field_123d.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123e.pl
+++ b/cataloguing/value_builder/unimarc_field_123e.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123f.pl
+++ b/cataloguing/value_builder/unimarc_field_123f.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123g.pl
+++ b/cataloguing/value_builder/unimarc_field_123g.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123i.pl
+++ b/cataloguing/value_builder/unimarc_field_123i.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_123j.pl
+++ b/cataloguing/value_builder/unimarc_field_123j.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124.pl
+++ b/cataloguing/value_builder/unimarc_field_124.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124a.pl
+++ b/cataloguing/value_builder/unimarc_field_124a.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124b.pl
+++ b/cataloguing/value_builder/unimarc_field_124b.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124c.pl
+++ b/cataloguing/value_builder/unimarc_field_124c.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124d.pl
+++ b/cataloguing/value_builder/unimarc_field_124d.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124e.pl
+++ b/cataloguing/value_builder/unimarc_field_124e.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124f.pl
+++ b/cataloguing/value_builder/unimarc_field_124f.pl
@ -20,7 +20,6 @@

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_124g.pl
+++ b/cataloguing/value_builder/unimarc_field_124g.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_125.pl
+++ b/cataloguing/value_builder/unimarc_field_125.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_125a.pl
+++ b/cataloguing/value_builder/unimarc_field_125a.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_125b.pl
+++ b/cataloguing/value_builder/unimarc_field_125b.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_126.pl
+++ b/cataloguing/value_builder/unimarc_field_126.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_126a.pl
+++ b/cataloguing/value_builder/unimarc_field_126a.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_126b.pl
+++ b/cataloguing/value_builder/unimarc_field_126b.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_127.pl
+++ b/cataloguing/value_builder/unimarc_field_127.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_128a.pl
+++ b/cataloguing/value_builder/unimarc_field_128a.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_128b.pl
+++ b/cataloguing/value_builder/unimarc_field_128b.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_128c.pl
+++ b/cataloguing/value_builder/unimarc_field_128c.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_130.pl
+++ b/cataloguing/value_builder/unimarc_field_130.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_135a.pl
+++ b/cataloguing/value_builder/unimarc_field_135a.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_140.pl
+++ b/cataloguing/value_builder/unimarc_field_140.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;
--- a/cataloguing/value_builder/unimarc_field_141.pl
+++ b/cataloguing/value_builder/unimarc_field_141.pl
@ -19,7 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl
+++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl
@ -40,7 +40,6 @@ It need :

 use Modern::Perl;

-#use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_225a.pl
+++ b/cataloguing/value_builder/unimarc_field_225a.pl
@ -40,7 +40,7 @@ It need :
 =cut

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_4XX.pl
+++ b/cataloguing/value_builder/unimarc_field_4XX.pl
@ -19,7 +19,6 @@


 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use CGI qw ( -utf8 );
 use C4::Output;
--- a/cataloguing/value_builder/unimarc_field_686a.pl
+++ b/cataloguing/value_builder/unimarc_field_686a.pl
@ -18,7 +18,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_field_700-4.pl
+++ b/cataloguing/value_builder/unimarc_field_700-4.pl
@ -20,7 +20,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
--- a/cataloguing/value_builder/unimarc_leader.pl
+++ b/cataloguing/value_builder/unimarc_leader.pl
@ -19,7 +19,6 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.

 use Modern::Perl;
-#use warnings; FIXME - Bug 2505

 use Koha::Util::FrameworkPlugin qw(wrapper);
 use C4::Auth;