Configure fix

Attached is a small fix for the case where, instead of checking out
parrot in the ponie directory, the user creates a symlink to an existing
parrot checkout.

Without this fix, Configure makes symlinks inside the parrot tree that
point to somewhere other than the ponie tree.

What this patch does NOT fix is the following error:

        gcc -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING  -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -I/home/ajs/src/ponie/perl -g  -Dan_Sugalski -Larry -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wshadow -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -mno-accumulate-outgoing-args -Wno-shadow  -I../include -o perl5av.o -c perl5av.c
        perl5av.c: In function `Parrot_Perl5AV_get_string':
        perl5av.c:169: warning: passing arg 4 of `string_make' from incompatible pointer type
        perl5av.c:169: error: too few arguments to function `string_make'
        make[1]: *** [perl5av.o] Error 1
        make[1]: Leaving directory `/home/ajs/src/parrot/classes'
        make: *** [classes/perl5av.o] Error 2

Any clue why that would happen?

-- 
Aaron Sherman <[email protected]>
Senior Systems Engineer and Toolsmith
"It's the sound of a satellite saying, 'get me down!'" -Shriekback

Index: Configure.pl
===================================================================
RCS file: /cvs/public/ponie/Configure.pl,v
retrieving revision 1.16
diff -u -r1.16 Configure.pl
--- Configure.pl	16 Apr 2004 16:44:06 -0000	1.16
+++ Configure.pl	23 Apr 2004 19:00:53 -0000
@@ -37,14 +37,16 @@
 
 unless(-e 'parrot/parrot') {
     do_perl_configure() unless(-e 'perl/config.h');
+    # Save top-level path because parrot might be a symlink
+    chomp(my $top = `pwd`);
     chdir('parrot')  || die "You need to checkout parrot inside ponie";
     chdir('classes') || die;
     system('rm -f perl5lv.pmc') && die "Error";
-    system('ln','-s','../../src/pmc/perl5lv.pmc') && die "error";
+    system('ln','-s',"$top/src/pmc/perl5lv.pmc") && die "error";
     system('rm -f perl5av.pmc') && die "Error";
-    system('ln','-s','../../src/pmc/perl5av.pmc') && die "error";
+    system('ln','-s',"$top/src/pmc/perl5av.pmc") && die "error";
     system('rm -f perl5xpvhv.pmc') && die "Error";
-    system('ln','-s','../../src/pmc/perl5xpvhv.pmc') && die "error";
+    system('ln','-s',"$top/src/pmc/perl5xpvhv.pmc") && die "error";
     chdir('..') || die;
     system($^X,'Configure.pl', "--gc=libc",
 	   "--ccflags= :add{ -I$dir/perl}",