[PATCH Miniperl::Tokenizer] Shut up warning in test

[Jonathan Stowe]

This quietens a warning in the Tokenizer test:

--- languages/miniperl/Miniperl/Tokenizer.pm~   Wed Jan  2 07:25:43 2002
+++ languages/miniperl/Miniperl/Tokenizer.pm    Wed Jan  2 07:34:56 2002
@@ -3,7 +3,7 @@
 use strict;
 use vars qw($VERSION);

-$VERSION = '0.01';
+$VERSION = '0.02';

 #------------------------------------------------------------------------------

@@ -25,7 +25,7 @@

 sub tokenize {
   my $self = shift;
-  $self->{text} = $_[0] if $_[0] and $_[0] ne '';
+  $self->{text} = $_[0] || return [];

   my $tokref = [];
   my $in_quote = 0;



/J\
-- 
Jonathan Stowe                      |
<http://www.gellyfish.com>          |      This space for rent
                                    |