X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fnamespace-clean.git;a=blobdiff_plain;f=t%2F09-fiddle-hinthash.t;fp=t%2F09-fiddle-hinthash.t;h=6882db9d6140d22768ca97b9fbd8a9a56bbdfc98;hp=bf7b0753299b9abfc92d4b9218b57283f3353571;hb=006e9cb47357c9a0878feafbbb35df4f01cc0d09;hpb=e5233d435befdf59a2a604341a3048aa42259c99 diff --git a/t/09-fiddle-hinthash.t b/t/09-fiddle-hinthash.t index bf7b075..6882db9 100644 --- a/t/09-fiddle-hinthash.t +++ b/t/09-fiddle-hinthash.t @@ -42,7 +42,7 @@ use Test::More 0.88; 'Tied hinthash values not present in extended caller() on perls older than 5.10' .', regardless of mode (PP or XS)', 1 - ) if ($] < 5.010_000); + ) if ("$]" < 5.010_000); package DB; Test::More::is( ( (caller(0))[10] || {} )->{foo}, 'bar', 'hinthash values visible in caller' ); }