From: Vincent Pit Date: Sat, 9 Jan 2010 15:01:13 +0000 (+0100) Subject: s/specific/kv/ in the array test generator X-Git-Tag: v0.04~3 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fautovivification.git;a=commitdiff_plain;h=f046e35a39c6a5d3db2403a69c15519c6012f64a s/specific/kv/ in the array test generator --- diff --git a/samples/hash2array.pl b/samples/hash2array.pl index 9fc4a61..3cf38fc 100644 --- a/samples/hash2array.pl +++ b/samples/hash2array.pl @@ -90,11 +90,11 @@ close $hash_t; close $array_t; close $array_fast_t; -open my $hash_specific_t, '<', 't/22-hash-kv.t'; -open my $array_specific_t, '>', 't/32-array-kv.t'; +open my $hash_kv_t, '<', 't/22-hash-kv.t'; +open my $array_kv_t, '>', 't/32-array-kv.t'; $in_data = 0; -while (<$hash_specific_t>) { +while (<$hash_kv_t>) { if (/^__DATA__$/) { $in_data = 1; } elsif (!$in_data) { @@ -107,5 +107,5 @@ while (<$hash_specific_t>) { } else { $_ = convert_testcase($_, 1); } - print $array_specific_t $_; + print $array_kv_t $_; }