X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FString%2FTT.pm;h=0244de808da2b403044f7b2eba52c444297e212c;hb=4f4204a3cb10eac31bb4387275f10753d25bf07e;hp=9a6d1dd5638bd739abf429a6d77f427729c310fc;hpb=c3ffad02009566171a1c9ca13bef64c51d853d29;p=scpubgit%2FHTML-String.git

diff --git a/lib/HTML/String/TT.pm b/lib/HTML/String/TT.pm
index 9a6d1dd..0244de8 100644
--- a/lib/HTML/String/TT.pm
+++ b/lib/HTML/String/TT.pm
@@ -18,6 +18,16 @@ use Template;
 use Template::Parser;
 use Template::Stash;
 
+BEGIN {
+  my $orig_blessed = Template::Stash->can('blessed');
+  no warnings 'redefine';
+  *Template::Stash::blessed = sub ($) {
+    my $val = $orig_blessed->($_[0]);
+    return undef if defined($val) and $val eq 'HTML::String::Value';
+    return $val;
+  };
+}
+
 sub new {
     shift;
     Template->new(