X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fautovivification.git;a=blobdiff_plain;f=samples%2Fhash2array.pl;h=d703ada917d6faf904b2d1d26472d82f5bb4bfac;hp=d58d205dcfced2b9583618b66413d083c488bb4a;hb=acd04c4caf2a342c115cd053dd5552a9ae2c414a;hpb=5f53c81963f68100257acd888894cd26ae83b9d7

diff --git a/samples/hash2array.pl b/samples/hash2array.pl
index d58d205..d703ada 100644
--- a/samples/hash2array.pl
+++ b/samples/hash2array.pl
@@ -102,7 +102,7 @@ while (<$hash_kv_t>) {
   if (/\bplan\s*[\s\(]\s*tests\b/) {
    s/\s*;?\s*$//;
    s/^(\s*)//;
-   $_ = "$1if (\$] >= 5.011) { $_ } else { plan skip_all => 'perl 5.11 required for keys/values \@array' }\n";
+   $_ = qq($1if ("\$]" >= 5.011) { $_ } else { plan skip_all => 'perl 5.11 required for keys/values \@array' }\n);
   }
  } else {
   $_ = convert_testcase($_, 1);