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