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