blob: e6a1790f67cd2047c756157d79319ccc4532cf9f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|
