cvs commit: ponie Configure.pl

cvsuser     04/05/07 06:37:14

  Modified:    .        Configure.pl
  Log:
  Copy real .pmc files if present, else use the cargo cult template.
  
  Revision  Changes    Path
  1.26      +14 -10    ponie/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /cvs/public/ponie/Configure.pl,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -w -r1.25 -r1.26
  --- Configure.pl	5 May 2004 16:10:23 -0000	1.25
  +++ Configure.pl	7 May 2004 13:37:14 -0000	1.26
  @@ -49,10 +49,15 @@
       chdir('parrot')  || die "You need to checkout parrot inside ponie";
       foreach (qw(iv nv rv pv pviv pvnv pvmg pvbm pvgv pvlv pvav pvhv pvcv pvfm
   		pvio)) {
  -      my $file = File::Spec->catfile('classes', "perl5$_.pmc");
  +      my $leaf = "perl5$_.pmc";
  +      my $file = File::Spec->catfile('classes', $leaf);
         if (-e $file) {
   	unlink $file or die "unlink '$file' failed: $!";
         }
  +      my $real = File::Spec->catfile ($dir, 'src', 'pmc', $leaf);
  +      if (-f $real) {
  +	symlink $real, $file or die "symlink $real, $file failed: $!";
  +      } else {
         my $code = $template;
         my $uc = uc $_;
         $code =~ s/QQQ/$uc/gm;
  @@ -60,8 +65,7 @@
         open F, ">$file" or die "Can't open $file: $!";
         print F $code or die $!;
         close F or die "Can't close $file: $!";
  -      # my $orig = File::Spec->catfile ($dir, 'src', 'pmc', $_);
  -      # symlink $orig, $file or die "symlink $orig, $file failed: $!";
  +      }
       }
   
       system($^X,'Configure.pl', "--gc=libc",