Bug 19996: use Modern::Perl in cataloguing perl scripts

author Grace Smyth <gracesmythh@gmail.com>

Thu, 18 Jan 2018 03:30:08 +0000 (03:30 +0000)

committer Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Mon, 5 Feb 2018 12:45:47 +0000 (09:45 -0300)
author Grace Smyth <gracesmythh@gmail.com>
Thu, 18 Jan 2018 03:30:08 +0000 (03:30 +0000)
committer Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Mon, 5 Feb 2018 12:45:47 +0000 (09:45 -0300)
diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl

index 3d14f83..cfae873 100755 (executable)
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -19,7 +19,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use CGI q(-utf8);
 use C4::Output;
diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl

index 653bced..ae4d7ac 100755 (executable)
--- a/cataloguing/addbooks.pl
+++ b/cataloguing/addbooks.pl
@@ -24,8 +24,8 @@
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
+
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Biblio;
diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl

index a0500a4..77dd5d5 100755 (executable)
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -19,7 +19,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 use C4::Auth;
diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl

index e23ff25..40e2a98 100755 (executable)
--- a/cataloguing/linkitem.pl
+++ b/cataloguing/linkitem.pl
@@ -19,7 +19,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl

index 7805da4..ed6c3df 100755 (executable)
--- a/cataloguing/moveitem.pl
+++ b/cataloguing/moveitem.pl
@@ -19,7 +19,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 use C4::Auth;
diff --git a/cataloguing/value_builder/normarc_field_007.pl b/cataloguing/value_builder/normarc_field_007.pl

index 8bf3ba7..2931b42 100755 (executable)
--- a/cataloguing/value_builder/normarc_field_007.pl
+++ b/cataloguing/value_builder/normarc_field_007.pl
@@ -17,7 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
diff --git a/cataloguing/value_builder/normarc_field_008.pl b/cataloguing/value_builder/normarc_field_008.pl

index b626d37..a156cd2 100755 (executable)
--- a/cataloguing/value_builder/normarc_field_008.pl
+++ b/cataloguing/value_builder/normarc_field_008.pl
@@ -17,7 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
diff --git a/cataloguing/value_builder/normarc_leader.pl b/cataloguing/value_builder/normarc_leader.pl

index d0842d7..29a1a7a 100755 (executable)
--- a/cataloguing/value_builder/normarc_leader.pl
+++ b/cataloguing/value_builder/normarc_leader.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl

index 1df7e80..5c68b18 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_010.pl
+++ b/cataloguing/value_builder/unimarc_field_010.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 use C4::Auth;
 use CGI qw ( -utf8 );
 use C4::Context;
diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl

index 99798e6..1fe8ff4 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_100.pl
+++ b/cataloguing/value_builder/unimarc_field_100.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use Date::Calc qw( Today );
 
diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl

index 0afc26f..1b5f9c5 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_105.pl
+++ b/cataloguing/value_builder/unimarc_field_105.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl

index 031edab..8eca995 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_106.pl
+++ b/cataloguing/value_builder/unimarc_field_106.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl

index 547b408..4d37ce1 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_110.pl
+++ b/cataloguing/value_builder/unimarc_field_110.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl

index 68bbdcb..8a3839a 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_115a.pl
+++ b/cataloguing/value_builder/unimarc_field_115a.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl

index 5aa81d4..e0aa090 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_115b.pl
+++ b/cataloguing/value_builder/unimarc_field_115b.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl

index da5ab99..4e8abf1 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_116.pl
+++ b/cataloguing/value_builder/unimarc_field_116.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl

index 995e53b..baa1834 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_117.pl
+++ b/cataloguing/value_builder/unimarc_field_117.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl

index 50abed8..633384d 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_120.pl
+++ b/cataloguing/value_builder/unimarc_field_120.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl

index 6f8092c..4e8c157 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_121a.pl
+++ b/cataloguing/value_builder/unimarc_field_121a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl

index 2091210..6de569c 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_121b.pl
+++ b/cataloguing/value_builder/unimarc_field_121b.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl

index 36a5459..13660cb 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_122.pl
+++ b/cataloguing/value_builder/unimarc_field_122.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl

index 3d3b2d3..a850673 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123a.pl
+++ b/cataloguing/value_builder/unimarc_field_123a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl

index 3f0db3e..aab8011 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123d.pl
+++ b/cataloguing/value_builder/unimarc_field_123d.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl

index 3f0db3e..aab8011 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123e.pl
+++ b/cataloguing/value_builder/unimarc_field_123e.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl

index 84c9294..51e7190 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123f.pl
+++ b/cataloguing/value_builder/unimarc_field_123f.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl

index 3f0db3e..aab8011 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123g.pl
+++ b/cataloguing/value_builder/unimarc_field_123g.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl

index 137b9d0..dcd69b3 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123i.pl
+++ b/cataloguing/value_builder/unimarc_field_123i.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl

index 52cb4bf..5cd2138 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_123j.pl
+++ b/cataloguing/value_builder/unimarc_field_123j.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl

index 78f0dc3..1feb7d3 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124.pl
+++ b/cataloguing/value_builder/unimarc_field_124.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl

index c7782bc..a2895da 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124a.pl
+++ b/cataloguing/value_builder/unimarc_field_124a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl

index 6f9c893..d5f7e66 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124b.pl
+++ b/cataloguing/value_builder/unimarc_field_124b.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl

index f14456d..cbce3a5 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124c.pl
+++ b/cataloguing/value_builder/unimarc_field_124c.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl

index 5d36466..21264c7 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124d.pl
+++ b/cataloguing/value_builder/unimarc_field_124d.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl

index cd0e7d0..4e99831 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124e.pl
+++ b/cataloguing/value_builder/unimarc_field_124e.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl

index 5a823c9..cac0a5e 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124f.pl
+++ b/cataloguing/value_builder/unimarc_field_124f.pl
@@ -18,7 +18,8 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
+
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl

index 25d97b9..fbd31ec 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_124g.pl
+++ b/cataloguing/value_builder/unimarc_field_124g.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl

index 2b56b0b..c220a79 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_125.pl
+++ b/cataloguing/value_builder/unimarc_field_125.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl

index 2d862af..f555007 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_125a.pl
+++ b/cataloguing/value_builder/unimarc_field_125a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl

index 09142ef..9887ba1 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_125b.pl
+++ b/cataloguing/value_builder/unimarc_field_125b.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl

index 78f0dc3..1feb7d3 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_126.pl
+++ b/cataloguing/value_builder/unimarc_field_126.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl

index e9b141d..fbccba8 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_126a.pl
+++ b/cataloguing/value_builder/unimarc_field_126a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl

index 592c96a..77dfb08 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_126b.pl
+++ b/cataloguing/value_builder/unimarc_field_126b.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl

index 3670f9d..1084137 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_127.pl
+++ b/cataloguing/value_builder/unimarc_field_127.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl

index dafa0d1..b3fb5c7 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_128a.pl
+++ b/cataloguing/value_builder/unimarc_field_128a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl

index 2a4290d..d9db926 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_128b.pl
+++ b/cataloguing/value_builder/unimarc_field_128b.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl

index eb32a49..b6a2835 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_128c.pl
+++ b/cataloguing/value_builder/unimarc_field_128c.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl

index ab23ad8..2c40842 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_130.pl
+++ b/cataloguing/value_builder/unimarc_field_130.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl

index 329c454..73f5e5a 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_135a.pl
+++ b/cataloguing/value_builder/unimarc_field_135a.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl

index bcdb244..9e431af 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_140.pl
+++ b/cataloguing/value_builder/unimarc_field_140.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl

index 6104c91..83a56c6 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_141.pl
+++ b/cataloguing/value_builder/unimarc_field_141.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl

index 2180694..f6602a0 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_210c.pl
+++ b/cataloguing/value_builder/unimarc_field_210c.pl
@@ -18,9 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
-
+use Modern::Perl;
 use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl

index eb73cfd..31ad00d 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl
+++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl
@@ -38,7 +38,7 @@ It need :
 
 =cut
 
-use strict;
+use Modern::Perl;
 
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl

index 0e0dca7..5164253 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_225a.pl
+++ b/cataloguing/value_builder/unimarc_field_225a.pl
@@ -39,7 +39,7 @@ It need :
 
 =cut
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl

index c514349..635c797 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_4XX.pl
+++ b/cataloguing/value_builder/unimarc_field_4XX.pl
@@ -18,7 +18,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl

index 2a7ca70..b2238f0 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_686a.pl
+++ b/cataloguing/value_builder/unimarc_field_686a.pl
@@ -17,7 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl

index 4adba96..ad5283b 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_700-4.pl
+++ b/cataloguing/value_builder/unimarc_field_700-4.pl
@@ -19,7 +19,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 use C4::Auth;
 use CGI qw ( -utf8 );
diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl

index b333061..e6feade 100755 (executable)
--- a/cataloguing/value_builder/unimarc_leader.pl
+++ b/cataloguing/value_builder/unimarc_leader.pl
@@ -18,7 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
+use Modern::Perl;
 #use warnings; FIXME - Bug 2505
 
 use Koha::Util::FrameworkPlugin qw(wrapper);
diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl

index c808b7b..4526ccf 100755 (executable)
--- a/cataloguing/z3950_auth_search.pl
+++ b/cataloguing/z3950_auth_search.pl
@@ -16,8 +16,8 @@
 # You should have received a copy of the GNU General Public License along
 # with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
+
 use CGI qw / -utf8 /;
 
 use C4::Auth;
diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl

index 6ab1baa..dcc2581 100755 (executable)
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 
 use C4::Auth;
author	Grace Smyth <gracesmythh@gmail.com>
	Thu, 18 Jan 2018 03:30:08 +0000 (03:30 +0000)
committer	Jonathan Druart <jonathan.druart@bugs.koha-community.org>
	Mon, 5 Feb 2018 12:45:47 +0000 (09:45 -0300)
cataloguing/addbiblio.pl		patch \| blob \| history
cataloguing/addbooks.pl		patch \| blob \| history
cataloguing/additem.pl		patch \| blob \| history
cataloguing/linkitem.pl		patch \| blob \| history
cataloguing/moveitem.pl		patch \| blob \| history
cataloguing/value_builder/normarc_field_007.pl		patch \| blob \| history
cataloguing/value_builder/normarc_field_008.pl		patch \| blob \| history
cataloguing/value_builder/normarc_leader.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_010.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_100.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_105.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_106.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_110.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_115a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_115b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_116.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_117.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_120.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_121a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_121b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_122.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123d.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123e.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123f.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123g.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123i.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_123j.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124c.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124d.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124e.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124f.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_124g.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_125.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_125a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_125b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_126.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_126a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_126b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_127.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_128a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_128b.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_128c.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_130.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_135a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_140.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_141.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_210c.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_210c_bis.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_225a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_4XX.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_686a.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_field_700-4.pl		patch \| blob \| history
cataloguing/value_builder/unimarc_leader.pl		patch \| blob \| history
cataloguing/z3950_auth_search.pl		patch \| blob \| history
cataloguing/z3950_search.pl		patch \| blob \| history