Fix for perl 5.6.2
gfx [Fri, 10 Sep 2010 04:25:52 +0000 (13:25 +0900)]
Makefile.PL

index 3a7e44f..82c74c9 100755 (executable)
@@ -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 {