explicit list returns

[catagits/DOM-Tiny.git] / lib / DOM / Tiny.pm

diff --git a/lib/DOM/Tiny.pm b/lib/DOM/Tiny.pm
index 960c480..0d16365 100644 (file)
--- a/lib/DOM/Tiny.pm
+++ b/lib/DOM/Tiny.pm
@@ -213,7 +213,7 @@ sub _all_text {
 sub _ancestors {
   my ($self, $root) = @_;
 
-  return unless my $tree = $self->_parent;
+  return () unless my $tree = $self->_parent;
   my @ancestors;
   do { push @ancestors, $tree }
     while ($tree->[0] eq 'tag') && ($tree = $tree->[3]);
@@ -269,7 +269,7 @@ sub _link {
 sub _maybe { $_[1] ? $_[0]->_build($_[1], $_[0]->xml) : undef }
 
 sub _nodes {
-  return unless my $tree = shift;
+  return () unless my $tree = shift;
   my @nodes = @$tree[_start($tree) .. $#$tree];
   return shift() ? grep { $_->[0] eq 'tag' } @nodes : @nodes;
 }