From 61f88c17224f70d703b40153b17932bccfc46f96 Mon Sep 17 00:00:00 2001 From: Florian Ragwitz Date: Fri, 10 Sep 2010 11:05:24 +0200 Subject: [PATCH] Make EOL tests pass --- lib/Data/Thunk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Data/Thunk.pm b/lib/Data/Thunk.pm index 2868a7d..1fc901a 100644 --- a/lib/Data/Thunk.pm +++ b/lib/Data/Thunk.pm @@ -43,7 +43,7 @@ my ( $vivify_code, $vivify_scalar ) = ( $Data::Thunk::Code::vivify_code, $Data:: sub force ($) { my $val = shift; - if ( blessed($val) ) { + if ( blessed($val) ) { no warnings; # UNIVERSAL::isa if ( $val->UNIVERSAL::isa('Data::Thunk::Code') ) { # we wanna know what it's *real* class is return $val->$vivify_code;