diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-31 22:59:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-31 22:59:27 +0000 |
| commit | b3d904f31378536c078f52a858f0bfe70f0bade7 (patch) | |
| tree | 8316fe66b00b384ad29c6face883f812414982f2 /t | |
| parent | fc2007d4a9b17b1ac334e18213f5b0840803b58d (diff) | |
| download | perl-b3d904f31378536c078f52a858f0bfe70f0bade7.tar.gz | |
Make Perl_gv_fetchpvn_flags actually heed the passed in length.
This means that \0 bytes in symbolic references now work.
p4raw-id: //depot/perl@27028
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/ref.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index d4fb4fdc1b..e629d86005 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -423,9 +423,8 @@ TODO: { is ($$name1, undef, 'Nothing before we start'); is ($$name2, undef, 'Nothing before we start'); - $$name2 = "Yummy"; + $$name1 = "Yummy"; is ($$name1, "Yummy", 'Accessing via the correct name works'); - local $TODO = "NUL bytes truncate in symrefs"; is ($$name2, undef, 'Accessing via a different NUL-containing name gives nothing'); } |