[libmoosex-has-sugar-perl] 21/29: Fixup stupid non-interpolating strings ... wups

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 1.000000-source
in repository libmoosex-has-sugar-perl.

commit 7ec7c1d1726e84cea2f5d78f57bcd574226314d5
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Fri Jan 31 07:06:21 2014 +1300

    Fixup stupid non-interpolating strings ... wups
---
 t/05_is.t              | 3 ++-
 t/06_attr_required.t   | 3 ++-
 t/07_attr_lazy_build.t | 3 ++-
 t/08_saccharin.t       | 3 ++-
 t/10_saccharin.t       | 3 ++-
 5 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/t/05_is.t b/t/05_is.t
index 3dab84c..38c5027 100644
--- a/t/05_is.t
+++ b/t/05_is.t
@@ -6,7 +6,8 @@ use Test::More;
 
 BEGIN {
   my $mod = 'Moose';
-  eval 'require $mod; 1';
+  local $@;
+  eval qq[require $mod; 1];
   if ( my $e = $@ ) {
     my $msg = "$e";
     if ( $e =~ /^Can't locate/ ) {
diff --git a/t/06_attr_required.t b/t/06_attr_required.t
index afcc27b..bfaacc1 100644
--- a/t/06_attr_required.t
+++ b/t/06_attr_required.t
@@ -6,7 +6,8 @@ use Test::More;
 
 BEGIN {
   my $mod = 'Moose';
-  eval 'require $mod; 1';
+  local $@;
+  eval qq[require $mod; 1];
   if ( my $e = $@ ) {
     my $msg = "$e";
     if ( $e =~ /^Can't locate/ ) {
diff --git a/t/07_attr_lazy_build.t b/t/07_attr_lazy_build.t
index f53378d..271ff49 100644
--- a/t/07_attr_lazy_build.t
+++ b/t/07_attr_lazy_build.t
@@ -6,7 +6,8 @@ use Test::More;
 
 BEGIN {
   my $mod = 'Moose';
-  eval 'require $mod; 1';
+  local $@;
+  eval qq[require $mod; 1];
   if ( my $e = $@ ) {
     my $msg = "$e";
     if ( $e =~ /^Can't locate/ ) {
diff --git a/t/08_saccharin.t b/t/08_saccharin.t
index ff200b5..9c31927 100644
--- a/t/08_saccharin.t
+++ b/t/08_saccharin.t
@@ -6,7 +6,8 @@ use Test::More;
 
 BEGIN {
   my $mod = 'Moose';
-  eval 'require $mod; 1';
+  local $@;
+  eval qq[require $mod; 1];
   if ( my $e = $@ ) {
     my $msg = "$e";
     if ( $e =~ /^Can't locate/ ) {
diff --git a/t/10_saccharin.t b/t/10_saccharin.t
index 1fb34f3..3aebf9b 100644
--- a/t/10_saccharin.t
+++ b/t/10_saccharin.t
@@ -6,7 +6,8 @@ use Test::More;
 
 BEGIN {
   for my $mod (qw( Moose MooseX::Types::Moose )) {
-    eval 'require $mod; 1';
+    local $@;
+    eval qq[require $mod; 1];
     if ( my $e = $@ ) {
       my $msg = "$e";
       if ( $e =~ /^Can't locate/ ) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git