home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / patches / GD-1.14-win32.patch < prev    next >
Encoding:
Text File  |  1997-08-10  |  4.5 KB  |  160 lines
  1. diff -ur GD-1.14/GD.xs GD-1.14-win32/GD.xs
  2. --- GD-1.14/GD.xs    Sun Apr 27 17:17:42 1997
  3. +++ GD-1.14-win32/GD.xs    Sun Apr 27 17:00:16 1997
  4. @@ -250,7 +250,7 @@
  5.      {
  6.          gdImagePtr theImage;
  7.          FILE*    theFile;
  8. -        theFile = fh2file(filehandle,"r");
  9. +        theFile = fh2file(filehandle,"rb");
  10.          if (theFile == NULL) {
  11.            RETVAL = NULL;
  12.          } else {
  13. @@ -271,7 +271,7 @@
  14.      {
  15.          gdImagePtr theImage;
  16.          FILE*    theFile;
  17. -        theFile = fh2file(filehandle,"r");
  18. +        theFile = fh2file(filehandle,"rb");
  19.          if (theFile == NULL) {
  20.              RETVAL = NULL;
  21.          } else {
  22. @@ -292,7 +292,7 @@
  23.      {
  24.          gdImagePtr theImage;
  25.          FILE*    theFile;
  26. -        theFile = fh2file(filehandle,"r");
  27. +        theFile = fh2file(filehandle,"rb");
  28.          if (theFile == NULL) {
  29.              RETVAL = NULL;
  30.          } else {
  31. diff -ur GD-1.14/demos/brushes.pl GD-1.14-win32/demos/brushes.pl
  32. --- GD-1.14/demos/brushes.pl    Sun Apr 27 17:17:42 1997
  33. +++ GD-1.14-win32/demos/brushes.pl    Sun Apr 27 17:36:50 1997
  34. @@ -37,6 +37,8 @@
  35.  $im->setStyle($green,$green,$green,gdTransparent,$red,$red,$red,gdTransparent);
  36.  $im->line(0,280,300,280,gdStyled);
  37.  
  38. +binmode STDOUT;
  39. +
  40.  # print the image to stdout
  41.  print $im->gif;
  42.  
  43. diff -ur GD-1.14/demos/copies.pl GD-1.14-win32/demos/copies.pl
  44. --- GD-1.14/demos/copies.pl    Sun Apr 27 17:17:42 1997
  45. +++ GD-1.14-win32/demos/copies.pl    Sun Apr 27 17:37:38 1997
  46. @@ -38,6 +38,8 @@
  47.  # Same thing, but doubling the size
  48.  $im->copyResized($im,10,200,20,20,100,100,50,50);
  49.  
  50. +binmode STDOUT;
  51. +
  52.  # print the image to stdout
  53.  print $im->gif;
  54.  
  55. diff -ur GD-1.14/demos/fills.pl GD-1.14-win32/demos/fills.pl
  56. --- GD-1.14/demos/fills.pl    Sun Apr 27 17:17:42 1997
  57. +++ GD-1.14-win32/demos/fills.pl    Sun Apr 27 17:37:54 1997
  58. @@ -23,6 +23,8 @@
  59.  # black interior of the ellipse
  60.  $im->fill(50, 21, $red);
  61.  
  62. +binmode STDOUT;
  63. +
  64.  # print the image to stdout
  65.  print $im->gif;
  66.  
  67. diff -ur GD-1.14/demos/gd_example.cgi GD-1.14-win32/demos/gd_example.cgi
  68. --- GD-1.14/demos/gd_example.cgi    Sun Apr 27 17:17:42 1997
  69. +++ GD-1.14-win32/demos/gd_example.cgi    Sun Apr 27 17:40:20 1997
  70. @@ -26,6 +26,8 @@
  71.  # And fill it with red
  72.  $im->fill(50,50,$red);
  73.  
  74. +binmode STDOUT;
  75. +
  76.  # Convert the image to GIF and print it on standard output
  77.  print $im->gif;
  78.  
  79. diff -ur GD-1.14/demos/polys.pl GD-1.14-win32/demos/polys.pl
  80. --- GD-1.14/demos/polys.pl    Sun Apr 27 17:17:42 1997
  81. +++ GD-1.14-win32/demos/polys.pl    Sun Apr 27 17:38:12 1997
  82. @@ -28,6 +28,8 @@
  83.  $poly->map($poly->bounds,50,20,80,160);
  84.  $im->filledPolygon($poly,$white);
  85.  
  86. +binmode STDOUT;
  87. +
  88.  # print the image to stdout
  89.  print $im->gif;
  90.  
  91. diff -ur GD-1.14/demos/shapes.pl GD-1.14-win32/demos/shapes.pl
  92. --- GD-1.14/demos/shapes.pl    Sun Apr 27 17:17:42 1997
  93. +++ GD-1.14-win32/demos/shapes.pl    Sun Apr 27 17:38:34 1997
  94. @@ -42,6 +42,8 @@
  95.  $im->fill(100,70,$red);
  96.  $im->fill(40,40,$yellow);
  97.  
  98. +binmode STDOUT;
  99. +
  100.  # print the image to stdout
  101.  print $im->gif;
  102.  
  103. diff -ur GD-1.14/libgd/Makefile.PL GD-1.14-win32/libgd/Makefile.PL
  104. --- GD-1.14/libgd/Makefile.PL    Sun Apr 27 17:17:42 1997
  105. +++ GD-1.14-win32/libgd/Makefile.PL    Sun Apr 27 17:21:32 1997
  106. @@ -13,15 +13,21 @@
  107.  sub MY::top_targets {
  108.  '
  109.  all    ::    static
  110. +    @$(NOOP)
  111.  
  112.  static ::    libgd$(LIB_EXT)
  113. +    @$(NOOP)
  114.  
  115.  test:
  116.      
  117.  
  118.  libgd$(LIB_EXT): $(O_FILES)
  119. -    $(AR) cr libgd$(LIB_EXT) $(O_FILES)
  120. +'.
  121. +($^O eq 'MSWin32' ?
  122. +'    lib.exe -out:libgd$(LIB_EXT) $(O_FILES)
  123. +' :
  124. +'    $(AR) $(AR_STATIC_ARGS) libgd$(LIB_EXT) $(O_FILES)
  125.      $(RANLIB) libgd$(LIB_EXT)
  126. -';
  127. +');
  128.  }
  129.  
  130. diff -ur GD-1.14/t/GD.t GD-1.14-win32/t/GD.t
  131. --- GD-1.14/t/GD.t    Sun Apr 27 17:17:42 1997
  132. +++ GD-1.14-win32/t/GD.t    Sun Apr 27 17:12:20 1997
  133. @@ -23,6 +23,7 @@
  134.      undef $/;
  135.      open (REGRESSFILE,"./test.out.$testNo.gif") 
  136.      || die "Can't open regression file './t/test.out.$testNo.gif': $!\n";
  137. +    binmode REGRESSFILE;
  138.      my($regressdata) = <REGRESSFILE>;
  139.      close REGRESSFILE;
  140.      print $imageData eq $regressdata ? "ok $testNo" : "not ok $testNo","\n";
  141. @@ -30,6 +31,7 @@
  142.      if ($WRITEREGRESS) {
  143.      open (REGRESSFILE,">./test.out.$testNo.gif") 
  144.          || die "Can't open regression file './t/test.out.$testNo.gif': $!\n";
  145. +        binmode REGRESSFILE;
  146.      print REGRESSFILE $imageData;
  147.      close REGRESSFILE;
  148.      }
  149. @@ -43,6 +45,7 @@
  150.      my($green) = $im->colorAllocate(0,255,0);
  151.      my($yellow) = $im->colorAllocate(255,250,205);
  152.      open (TILE,"./tile.gif") || die "Can't open tile file: $!";
  153. +    binmode TILE;
  154.      my($tile) = newFromGif GD::Image(TILE);
  155.      close TILE;
  156.      $im->setBrush($tile);
  157. --- GD-1.14/libgd/Makefile.PL~    Sun Jun 22 16:21:59 1997
  158. +++ GD-1.14/libgd/Makefile.PL    Sun Aug 03 14:23:07 1997
  159. End of Patch.
  160.