7 open my $in, '<', 't/10-base.t';
8 open my $out, '>', 't/20-lvalue.t';
11 if (/use Variable::Temp/) {
12 print $out "use Variable::Temp 'temp';\n";
13 } elsif (/use +Test::More +(tests *=>.*); *$/) {
19 plan skip_all => 'perl 5.14 required to use lvalue temp()';
26 s/set_temp(.*?)=>/temp$1=/g;
27 s/set_temp(.*?);/temp$1;/g;