cvs commit: ponie write_makefile.pl

cvsuser     05/04/27 04:51:21

  Modified:    .        write_makefile.pl
  Log:
  Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargh
  Commit the {http://use.perl.org/~nicholas/journal/21980}ing top level, won't
  you? Oh. Why not? I issued the correct command to commit everything, but you
  failed to do so. Hateful CVS. Die die die.
  
  Revision  Changes    Path
  1.5       +6 -5      ponie/write_makefile.pl
  
  Index: write_makefile.pl
  ===================================================================
  RCS file: /cvs/public/ponie/write_makefile.pl,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- write_makefile.pl	22 Apr 2005 21:49:35 -0000	1.4
  +++ write_makefile.pl	27 Apr 2005 11:51:21 -0000	1.5
  @@ -10,15 +10,15 @@
   my $top = $FindBin::Bin;
   
   my @allPMCs
  -  = qw(null pvmg);
  +  = qw(cargo_cult null pvmg);
     # Don't need the rest yet.
     # iv nv rv pv pviv pvnv pvmg pvbm pvgv pvlv pvav pvhv pvcv pvfm pvio);
  -my @real = ();
  +my @real = qw(cargo_cult);
   my %fakes;
   @fakes{@allPMCs} = ();
   delete $fakes{$_} foreach @real;
   
  -system $^X, 'fake_pmcs.pl', "src/pmc/perl5cargo_cult.pmc", keys %fakes
  +system $^X, 'fake_pmcs.pl', "src/pmc/perl5QQQ.pmc", keys %fakes
     and die "Error";
   
   my $parrotdir = "$top/parrot";
  @@ -31,12 +31,13 @@
   my $alldumps = all (".dump", @allPMCs);
   my $allpmcs = all (".pmc", @allPMCs);
   
  +# Replace $Config{optimize} with -g for now
   print <<"EOM";
   # This Makefile was generated by $0
   
   PERL=$^X -I$parrotdir/lib
   CC=$Config{cc}
  -CFLAGS=$Config{ccflags} $Config{optimize} -I$parrotdir/classes -I$parrotdir/include -I$top/perl
  +CFLAGS=$Config{ccflags} -g -I$parrotdir/classes -I$parrotdir/include -I$top/perl
   
   libponie$Config{_a}: $allobjs
   	ar -r \$\@ \$\?