1use strict; 2use lib -e 't' ? 't' : 'test'; 3use TestYAML tests => 3; 4 5SKIP: { 6 skip 'fix this next release', 3; 7 my $x; 8 is(Dump(bless(\$x)), 'foo'); 9} 10 11__END__ 1203:14 < audreyt> ingy: 1303:14 < audreyt> use YAML; my $x; print Dump bless(\$x); 1403:14 < audreyt> is erroneous 1503:14 < audreyt> then 1603:14 < audreyt> use YAML; my $x = \3; print Dump bless(\$x); 1703:14 < audreyt> is fatal error 1803:15 < audreyt> use YAML; my $x; $x = \$x; print Dump bless(\$x); 1903:15 < audreyt> is scary fatal error 2003:15 < audreyt> (YAML::Syck handles all three ^^;) 2103:16 * audreyt goes back to do $job work 22 23