1#!perl -w
2
3use strict;
4use Test qw(plan ok);
5
6plan tests => 2;
7
8use Data::Dump qw(dump);
9
10my $s = \\1;
11ok(nl(dump($s)), <<'EOT');
12\\1
13EOT
14
15my %s;
16$s{C1} = \$s{C2};
17$s{C2} = \$s{C1};
18ok(nl(dump(\%s)), <<'EOT');
19do {
20  my $a = { C1 => \\do{my $fix}, C2 => 'fix' };
21  ${${$a->{C1}}} = $a->{C1};
22  $a->{C2} = ${$a->{C1}};
23  $a;
24}
25EOT
26
27sub nl { shift(@_) . "\n" }
28