cvs commit: ponie Configure.pl

cvsuser     04/04/24 07:07:22

  Modified:    .        Configure.pl
  Log:
  Make Configure.pl work where parrot directory is a symlink
  Courtesy of Aaron Sherman
  (with tweaks)
  
  Revision  Changes    Path
  1.17      +4 -4      ponie/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /cvs/public/ponie/Configure.pl,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -w -r1.16 -r1.17
  --- Configure.pl	16 Apr 2004 16:44:06 -0000	1.16
  +++ Configure.pl	24 Apr 2004 14:07:22 -0000	1.17
  @@ -40,18 +40,18 @@
       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',"$dir/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',"$dir/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',"$dir/src/pmc/perl5xpvhv.pmc") && die "error";
       chdir('..') || die;
       system($^X,'Configure.pl', "--gc=libc",
   	   "--ccflags= :add{ -I$dir/perl}",
   	   "--icudatadir=$FindBin::Bin/parrot/blib/lib/icu/2.6.1")
         && die "error";
       system('make')  && die "error";
  -    chdir('..') || die;
  +    chdir($dir) || die;
   }
   
   # redo config.sh