Test oneliner without double escaping dollar sign

Fix Perl-Toolchain-Gang#355

Author: atoomic

t/oneliner.t

@@ -8,7 +8,7 @@ chdir 't';
 
 use Config;
 use MakeMaker::Test::Utils;
-use Test::More tests => 16;
+use Test::More tests => 17;
 use File::Spec;
 
 my $TB = Test::More->builder;
@@ -25,6 +25,7 @@ sub try_oneliner {
     my($code, $switches, $expect, $name) = @_;
     my $cmd = $mm->oneliner($code, $switches);
     $cmd =~ s{\$\(ABSPERLRUN\)}{$perl};
+    $cmd =~ s{\$\$}{\$}g; # unescape Makefile syntax
 
     # VMS likes to put newlines at the end of commands if there isn't
     # one already.
@@ -37,7 +38,8 @@ sub try_oneliner {
 try_oneliner(q{print "foo'o", ' bar"ar'}, [],  q{foo'o bar"ar},  'quotes');
 
 # How about dollar signs?
-try_oneliner(q{$PATH = 'foo'; print $PATH},[], q{foo},   'dollar signs' );
+try_oneliner(q{my $PATH = 'foo'; print $PATH},[], q{foo},   'dollar signs' );
+try_oneliner(q{my %h = (1, 2); print $h{1}},[], q{2},   '%h and $h' );
 
 # switches?
 try_oneliner(q{print 'foo'}, ['-l'],           "foo\n",       'switches' );