X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExcel%2FTemplate%2FTextObject.pm;h=607eaff0bd277e78951e19f71d09f431dcccee6e;hb=c11fa570a52d9613e40c4c80e22302c2a5caca70;hp=6c7a99ec094d59d27bd3b1aa7d46692882ca4ccc;hpb=6dd4c89d686d215eb0de41e8a2f7805bfc7eb188;p=p5sagit%2FExcel-Template.git

diff --git a/lib/Excel/Template/TextObject.pm b/lib/Excel/Template/TextObject.pm
index 6c7a99e..607eaff 100755
--- a/lib/Excel/Template/TextObject.pm
+++ b/lib/Excel/Template/TextObject.pm
@@ -19,7 +19,9 @@ sub new
     my $class = shift;
     my $self = $class->SUPER::new(@_);
 
-    $self->{STACK} = [] unless UNIVERSAL::isa($self->{STACK}, 'ARRAY');
+    $self->{STACK} = []
+        unless defined $self->{STACK} &&
+            UNIVERSAL::isa($self->{STACK}, 'ARRAY');
 
     return $self;
 }