cvsuser 03/11/18 23:19:34
Modified: languages/regex regex.pl
Log:
Update to new types
Revision Changes Path
1.9 +2 -2 parrot/languages/regex/regex.pl
Index: regex.pl
===================================================================
RCS file: /cvs/public/parrot/languages/regex/regex.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- regex.pl 25 Aug 2002 08:45:24 -0000 1.8
+++ regex.pl 19 Nov 2003 07:19:33 -0000 1.9
@@ -46,8 +46,8 @@
exit;
}
-my @code = Regex::tree_to_list($tree, %options);
+my $code = Regex::tree_to_list($tree, %options);
-my @asm = Regex::list_to_pasm([EMAIL PROTECTED], %options);
+my @asm = Regex::list_to_pasm($code, %options);
print join("\n", @asm), "\n";