perl-Math-BigInteger-Fputc_to_fputc.patch

   1 --- bn.c.orig   2004-04-27 10:49:28.912658328 +0200
   2 +++ bn.c        2004-04-27 10:48:33.718049184 +0200
   3 @@ -304,8 +304,8 @@
   4         int i,j,v,z=0;
   5         static char *hex="0123456789ABCDEF";
   6
   7 -       if (a->neg) Fputc('-',fp);
   8 -       if (a->top == 0) Fputc('0',fp);
   9 +       if (a->neg) fputc('-',fp);
  10 +       if (a->top == 0) fputc('0',fp);
  11         for (i=a->top-1; i >=0; i--)
  12                 {
  13                 for (j=BITS2-4; j >= 0; j-=4)
  14 @@ -314,7 +314,7 @@
  15                         v=(a->d[i]>>j)&0x0f;
  16                         if (z || (v != 0))
  17                                 {
  18 -                               Fputc(hex[v],fp);
  19 +                               fputc(hex[v],fp);
  20                                 z=1;
  21                                 }
  22                         }