cvs commit: parrot Configure.pl

[dan]

cvsuser     01/10/04 13:19:38

  Modified:    .        Configure.pl
  Log:
  VMS tweaks
  
  Revision  Changes    Path
  1.23      +12 -3     parrot/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/Configure.pl,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -w -r1.22 -r1.23
  --- Configure.pl      2001/10/02 14:01:30     1.22
  +++ Configure.pl      2001/10/04 20:19:38     1.23
  @@ -19,7 +19,7 @@
   );
   
   if($opt_version) {
  -     print '$Id: Configure.pl,v 1.22 2001/10/02 14:01:30 simon Exp $' . "\n";
  +     print '$Id: Configure.pl,v 1.23 2001/10/04 20:19:38 dan Exp $' . "\n";
        exit;
   }
   
  @@ -134,8 +134,17 @@
   END
   
   buildfile("test_c");
  +if ($^O eq 'VMS') {
  +  system("$c{cc} $c{ccflags} test.c") and die "C compiler died!";
  +  system("link/exe=test_siz test") and die "Link failed!";
  +} else {
   system("$c{cc} $c{ccflags} -o test_siz$c{exe} test.c") and die "C compiler died!";
  +}
  +if ($^O eq 'VMS') {
  +  (@c{qw(intvalsize longsize numvalsize opcode_t_size)})=split('/', `mcr 
[]test_siz`);
  +} else {
   (@c{qw(intvalsize longsize numvalsize opcode_t_size)})=split('/', 
`./test_siz$c{exe}`);
  +}
   die "Something wicked happened!" 
       unless defined $c{intvalsize} and defined $c{longsize} and 
           defined $c{numvalsize} and defined $c{opcode_t_size};