dougm       01/08/16 20:29:14

  Modified:    util     sizeof.pl
  Log:
  mumble
  
  Revision  Changes    Path
  1.2       +2 -3      modperl-2.0/util/sizeof.pl
  
  Index: sizeof.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/util/sizeof.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- sizeof.pl 2001/01/07 22:43:36     1.1
  +++ sizeof.pl 2001/08/17 03:29:14     1.2
  @@ -38,15 +38,14 @@
   
       print $fh <<EOF;
   #include <stdio.h>
  -static FILE *outfp = stdout;
   #define PERLIO_NOT_STDIO 0
   #include "EXTERN.h"
   #include "perl.h"
   #include "XSUB.h"
  -
  +#undef fprintf
   int main(void) {
       int size = @elts;
  -    fprintf(outfp, "%d", size);
  +    fprintf(stdout, "%d", size);
       return 1;
   }
   EOF
  
  
  

Reply via email to