Changeset 1150 for lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm

Timestamp:

11/05/07 16:42:29 (6 years ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I changed root of the element tree to Root element.

Files:

• lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm (modified) (1 diff)

lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm

@@ -140 +140 @@
     my ( $self, $text ) = @_;
     my $tree = $self->parser->parse( $text );
-    $tree = [ $tree ] if ( ref $tree ne 'ARRAY' );
     return $tree;
 }