diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2014-01-14 08:30:46 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2014-01-14 09:33:02 -0500 |
| commit | 1df6869d4e6a2f5ae04d9304cae006ce6cf7bf96 (patch) | |
| tree | 41fbc4f80c48a2c1b1b438e3d9e0c12b681500f7 | |
| parent | a69823cd867374d9183fe65284f06f7fc3b6ddbf (diff) | |
| download | perl-1df6869d4e6a2f5ae04d9304cae006ce6cf7bf96.tar.gz | |
avoid a keys-on-scalar warning in a test
| -rw-r--r-- | lib/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 3978187264..b81b97b09e 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -435,7 +435,7 @@ SKIP: { utf8::decode($k1); utf8::decode($k2); my $h = { $k1 => 1, $k2 => 2 }; - is join('', keys $h), $k2, 'utf8::decode respects copy-on-write'; + is join('', keys %$h), $k2, 'utf8::decode respects copy-on-write'; } { |