From: Dylan Hardison <dylan@mozilla.com>
Date: Mon, 9 May 2016 23:20:19 +0000 (-0400)
Subject: Bug 1270550 - Can't locate loadable object for module main::Tie::Hash::NamedCapture... 
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0d8e62365e849460582afe52f7ae0b0554cf5f19;p=thirdparty%2Fbugzilla.git

Bug 1270550 - Can't locate loadable object for module main::Tie::Hash::NamedCapture in @INC
r=dkl
---

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 802f158452..032d083556 100644
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -45,6 +45,8 @@ use File::Basename;
 use File::Spec::Functions;
 use DateTime::TimeZone;
 use Date::Parse;
+# Bug 1270550 - Tie::Hash::NamedCapture must be loaded before Safe.
+use Tie::Hash::NamedCapture;
 use Safe;
 use List::Util qw(first);
 
diff --git a/Bugzilla/DB/Schema.pm b/Bugzilla/DB/Schema.pm
index 6f06aac340..9b59d1b826 100644
--- a/Bugzilla/DB/Schema.pm
+++ b/Bugzilla/DB/Schema.pm
@@ -28,6 +28,8 @@ use Carp qw(confess);
 use Digest::MD5 qw(md5_hex);
 use Hash::Util qw(lock_value unlock_hash lock_keys unlock_keys);
 use List::MoreUtils qw(firstidx natatime);
+# Bug 1270550 - Tie::Hash::NamedCapture must be loaded before Safe.
+use Tie::Hash::NamedCapture;
 use Safe;
 # Historical, needed for SCHEMA_VERSION = '1.00'
 use Storable qw(dclone freeze thaw);
diff --git a/Bugzilla/Install/Localconfig.pm b/Bugzilla/Install/Localconfig.pm
index 4a3b09f835..d5de236e03 100644
--- a/Bugzilla/Install/Localconfig.pm
+++ b/Bugzilla/Install/Localconfig.pm
@@ -27,6 +27,7 @@ use Data::Dumper;
 use File::Basename qw(dirname);
 use English qw($EGID);
 use List::Util qw(first);
+use Tie::Hash::NamedCapture;
 use Safe;
 use Term::ANSIColor;
 
diff --git a/Bugzilla/Migrate.pm b/Bugzilla/Migrate.pm
index 5a2defe158..b23fc5b539 100644
--- a/Bugzilla/Migrate.pm
+++ b/Bugzilla/Migrate.pm
@@ -30,6 +30,8 @@ use DateTime;
 use Fcntl qw(SEEK_SET);
 use File::Basename;
 use List::Util qw(first);
+# Bug 1270550 - Tie::Hash::NamedCapture must be loaded before Safe.
+use Tie::Hash::NamedCapture;
 use Safe;
 
 use constant CUSTOM_FIELDS      => {};
diff --git a/checksetup.pl b/checksetup.pl
index aacdf41be4..b63b94ec65 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -22,6 +22,8 @@ use lib qw(. lib local/lib/perl5);
 
 use Getopt::Long qw(:config bundling);
 use Pod::Usage;
+# Bug 1270550 - Tie::Hash::NamedCapture must be loaded before Safe.
+use Tie::Hash::NamedCapture;
 use Safe;
 
 use Bugzilla::Constants;