cvsuser 02/12/17 20:16:10
Modified: . assemble.pl
Log:
Eliminate warnings when compiling an empty file. (Cleans up a bunch of
test failures. Doesn't change the fact that they fail, of course. Just
makes them fail more neatly.)
Revision Changes Path
1.97 +2 -1 parrot/assemble.pl
Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -w -r1.96 -r1.97
--- assemble.pl 13 Dec 2002 21:37:46 -0000 1.96
+++ assemble.pl 18 Dec 2002 04:16:10 -0000 1.97
@@ -144,7 +144,7 @@
sub new {
my $class = shift;
- my $self = { };
+ my $self = { cur_contents => '' };
#
# Read the files, strip leading and trailing whitespace, and put the lines
# into an array in $self->{cur_contents}.
@@ -452,6 +452,7 @@
contents => [ ],
num_constants => 0,
ordered_constants => [ ],
+ bytecode => '',
};
if(exists $args{-files}) {
$self->{files} = $args{-files};
