[svn:parrot] r22093 - trunk/languages/scheme/lib/Scheme

Author: bernhard
Date: Sun Oct 14 10:28:08 2007
New Revision: 22093

Modified:
   trunk/languages/scheme/lib/Scheme/Tokenizer.pm

Log:
[Scheme]
minor doc fix.
add a 'm' to a Perl5  match


Modified: trunk/languages/scheme/lib/Scheme/Tokenizer.pm
==============================================================================
--- trunk/languages/scheme/lib/Scheme/Tokenizer.pm      (original)
+++ trunk/languages/scheme/lib/Scheme/Tokenizer.pm      Sun Oct 14 10:28:08 2007
@@ -47,7 +47,7 @@
                 $token .= $ch;
             }
             elsif (    $ch eq '?'
-                    && $token =~ /^[a-z]/
+                    && $token =~ m/^[a-z]/
                   )
             {                                # Question marks can follow an 
identifier
                 $token .= $ch;
@@ -119,7 +119,7 @@
 
   use Scheme:Tokenizer;
 
-  my @code = Scheme::Tokenizer->new($file_name)->tokenize();
+  my $tokens = Scheme::Tokenizer->new($file_name)->tokenize();
 
 =head1 DESCRIPTION