From 03002e3ebdea1c5cd752f7b87cd1d6e9e5fb910d Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 13 Jun 2012 23:43:14 -0700 Subject: [PATCH] Tests for perl #94476 --- t/op/ref.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/t/op/ref.t b/t/op/ref.t index 299ccdb..a568d88 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -8,7 +8,7 @@ BEGIN { use strict qw(refs subs); -plan(228); +plan(229); # Test glob operations. @@ -119,6 +119,7 @@ is (join(':',@{$spring2{"foo"}}), "1:2:3:4"); &$subref; is ($called, 1); } +is ref eval {\&{""}}, "CODE", 'reference to &{""} [perl #94476]'; # Test references to return values of operators (TARGs/PADTMPs) { -- 1.8.3.1