diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-09-26 12:56:47 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:08 -0700 |
| commit | a15456ded8f3d1fb2d67e9e3027b5766cc1c419f (patch) | |
| tree | 86c9ca52d9348bc2218b1fee299d2ca74ba3892c /t/uni | |
| parent | 70b71ec84c6ce44565d910f531ad659af12a4c35 (diff) | |
| download | perl-a15456ded8f3d1fb2d67e9e3027b5766cc1c419f.tar.gz | |
pp.c & sv.c: pp_ref UTF8 and null cleanup.
This adds a new function to sv.c, sv_ref, which is a nul-and-UTF8
clean version of sv_reftype. pp_ref now uses that.
sv_ref() not only returns the SV, but also takes in an SV
to modify, so we can say both sv_ref(TARG, obj, TRUE); and
sv = sv_ref(NULL, obj, TRUE);
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/bless.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/t/uni/bless.t b/t/uni/bless.t index b4cdb68250..5475f3ee73 100644 --- a/t/uni/bless.t +++ b/t/uni/bless.t @@ -13,10 +13,7 @@ plan (84); sub expected { my($object, $package, $type) = @_; print "# $object $package $type\n"; - TODO: { - local $TODO = "ref not yet clean"; - is(ref($object), $package); - } + is(ref($object), $package); my $r = qr/^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/u; like("$object", $r); if ("$object" =~ $r) { |