blob: 3472d97cf10725a7b1381d092eceb3b1a2048b0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
BEGIN {
require "test.pl"
}
use strict;
use warnings;
plan 2;
{
my %foo = (aap => "monkey");
my $foo = '';
is("@{[$foo{'aap'}]}", 'monkey', 'interpolation of hash lookup with space between lexical variable and subscript');
is("@{[$foo {'aap'}]}", 'monkey', 'interpolation of hash lookup with space between lexical variable and subscript');
}
|