use strict;
use lib -e 't' ? 't' : 'test';
use TestYAML tests => 3;
SKIP: {
skip 'fix this next release', 3;
my $x;
is(Dump(bless(\$x)), 'foo');
}
__END__
03:14 < audreyt> ingy:
03:14 < audreyt> use YAML; my $x; print Dump bless(\$x);
03:14 < audreyt> is erroneous
03:14 < audreyt> then
03:14 < audreyt> use YAML; my $x = \3; print Dump bless(\$x);
03:14 < audreyt> is fatal error
03:15 < audreyt> use YAML; my $x; $x = \$x; print Dump bless(\$x);
03:15 < audreyt> is scary fatal error
03:15 < audreyt> (YAML::Syck handles all three ^^;)
03:16 * audreyt goes back to do $job work