Many of the Perl scripts in the distribution (including assemble.pl !)
can no longer find the Parrot::* modules. Enclosed patch fixes (although
it would be nice if there were an easier way to do this).
Simon
--- languages/scheme/Scheme/Test.pm.old Wed Jan 30 17:42:08 2002
+++ languages/scheme/Scheme/Test.pm Wed Jan 30 17:42:11 2002
@@ -4,7 +4,7 @@
use strict;
use vars qw(@EXPORT @ISA);
-use lib '../..';
+use lib '../../lib';
use Parrot::Config;
require Exporter;
--- classes/pmc2c.pl.old Wed Jan 30 17:35:26 2002
+++ classes/pmc2c.pl Wed Jan 30 17:35:51 2002
@@ -6,6 +6,7 @@
#
use FindBin;
+use lib 'lib';
use lib "$FindBin::Bin/..";
use lib "$FindBin::Bin/../lib";
use Parrot::Vtable;
--- classes/genclass.pl.old Wed Jan 30 17:35:19 2002
+++ classes/genclass.pl Wed Jan 30 17:35:41 2002
@@ -1,6 +1,7 @@
# $Id: genclass.pl,v 1.7 2002/01/04 16:09:01 dan Exp $
use FindBin;
+use lib 'lib';
use lib "$FindBin::Bin/..";
use Parrot::Vtable;
my %vtbl = parse_vtable("$FindBin::Bin/../vtable.tbl");
--- assemble.pl.old Wed Jan 30 17:09:20 2002
+++ assemble.pl Wed Jan 30 17:14:41 2002
@@ -6,6 +6,7 @@
#
use strict;
+use lib 'lib';
use Parrot::Assembler;
init_assembler(@ARGV);
--- disassemble.pl.old Wed Jan 30 17:09:26 2002
+++ disassemble.pl Wed Jan 30 17:14:53 2002
@@ -12,7 +12,7 @@
#
use strict;
-
+use lib 'lib';
use Parrot::Config;
use Parrot::OpLib::core;
--- optimizer.pl.old Wed Jan 30 17:26:14 2002
+++ optimizer.pl Wed Jan 30 17:26:17 2002
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use lib '.';
+use lib 'lib';
use Parrot::Optimizer;
my $file = $ARGV[0];
--- pbc2c.pl.old Wed Jan 30 17:26:57 2002
+++ pbc2c.pl Wed Jan 30 17:27:02 2002
@@ -12,6 +12,7 @@
#
use strict;
+use lib 'lib';
use Parrot::Types;
use Parrot::PackFile;
