From: gfx <gfuji@cpan.org>
Date: Fri, 10 Sep 2010 04:25:52 +0000 (+0900)
Subject: Fix for perl 5.6.2
X-Git-Tag: 0.66~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=6741954a4b02fdb1fbc39b1132d74685fcc28f2e

Fix for perl 5.6.2
---

diff --git a/Makefile.PL b/Makefile.PL
index 3a7e44f..82c74c9 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -33,9 +33,9 @@ my %suggests = (
 );
 
 while(my($mod, $least) = each %suggests){
-    my $status = system $^X, '-e', sprintf <<'CHECK', $mod, $least;
-if(eval q{ use %1$s (); 1 }) {
-    if(eval q{ use %1$s %2$s (); 1 }) {
+    my $status = system $^X, '-e', <<"CHECK";
+if(eval q{ use $mod (); 1 }) {
+    if(eval q{ use $mod $least (); 1 }) {
         exit 0; # installd, and new enough
     }
     else {