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