Factor the common part of t/20-hash.t and t/21-array.t into a new t/lib/autovivificat...

[perl/modules/autovivification.git] / samples / hash2array.pl

diff --git a/samples/hash2array.pl b/samples/hash2array.pl
index 72cd2657ee2c1c689e85442bbca1f77b20d68330..4e7ccaa032da344682be0a7ace71b58c2fdef2c8 100644 (file)
--- a/samples/hash2array.pl
+++ b/samples/hash2array.pl
@@ -37,7 +37,7 @@ while (<$hash_t>) {
   $in_data = 1;
   print $array_t $_;
  } elsif (!$in_data) {
-  s{s/\^\$/%/}{s/^\$/@/};
+  s{'%'}{'\@'};
   print $array_t $_;
  } else {
   s!->{([a-z])}!'->[' . num($1) . ']'!eg;