ImageMagick-perlpaths.patch

   1 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/annotate.pl ImageMagick-5.5.6/PerlMagick/demo/annotate.pl
   2 --- ImageMagick-5.5.6.orig/PerlMagick/demo/annotate.pl  Sat Jun 14 17:16:03 2003
   3 +++ ImageMagick-5.5.6/PerlMagick/demo/annotate.pl       Sat Jun 14 17:49:46 2003
   4 @@ -1,4 +1,4 @@
   5 -#!/usr/local/bin/perl
   6 +#!/usr/bin/perl
   7
   8  use Image::Magick;
   9
  10 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/button.pl ImageMagick-5.5.6/PerlMagick/demo/button.pl
  11 --- ImageMagick-5.5.6.orig/PerlMagick/demo/button.pl    Sat Jun 14 17:16:03 2003
  12 +++ ImageMagick-5.5.6/PerlMagick/demo/button.pl Sat Jun 14 17:48:48 2003
  13 @@ -1,4 +1,4 @@
  14 -#!/usr/local/bin/perl
  15 +#!/usr/bin/perl
  16  #
  17  # Make simple beveled button.
  18  #
  19 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/composite.pl ImageMagick-5.5.6/PerlMagick/demo/composite.pl
  20 --- ImageMagick-5.5.6.orig/PerlMagick/demo/composite.pl Sat Jun 14 17:16:03 2003
  21 +++ ImageMagick-5.5.6/PerlMagick/demo/composite.pl      Sat Jun 14 17:49:46 2003
  22 @@ -1,4 +1,4 @@
  23 -#!/usr/local/bin/perl
  24 +#!/usr/bin/perl
  25
  26  use Image::Magick;
  27
  28 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/demo.pl ImageMagick-5.5.6/PerlMagick/demo/demo.pl
  29 --- ImageMagick-5.5.6.orig/PerlMagick/demo/demo.pl      Sat Jun 14 17:16:03 2003
  30 +++ ImageMagick-5.5.6/PerlMagick/demo/demo.pl   Sat Jun 14 17:48:48 2003
  31 @@ -1,4 +1,4 @@
  32 -#!/usr/local/bin/perl
  33 +#!/usr/bin/perl
  34  #
  35  # Overall demo of the major PerlMagick methods.
  36  #
  37 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/lsys.pl ImageMagick-5.5.6/PerlMagick/demo/lsys.pl
  38 --- ImageMagick-5.5.6.orig/PerlMagick/demo/lsys.pl      Sat Jun 14 17:16:03 2003
  39 +++ ImageMagick-5.5.6/PerlMagick/demo/lsys.pl   Sat Jun 14 17:48:48 2003
  40 @@ -1,4 +1,4 @@
  41 -#!/usr/local/bin/perl
  42 +#!/usr/bin/perl
  43
  44  # Written by jreed@itis.com, adapted by John Cristy.
  45
  46 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/piddle.pl ImageMagick-5.5.6/PerlMagick/demo/piddle.pl
  47 --- ImageMagick-5.5.6.orig/PerlMagick/demo/piddle.pl    Sat Jun 14 17:16:03 2003
  48 +++ ImageMagick-5.5.6/PerlMagick/demo/piddle.pl Sat Jun 14 17:48:48 2003
  49 @@ -1,4 +1,4 @@
  50 -#!/usr/local/bin/perl
  51 +#!/usr/bin/perl
  52  # Piddle example using PerlMagick methods.
  53
  54  use Image::Magick;
  55 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/shadow_text.pl ImageMagick-5.5.6/PerlMagick/demo/shadow_text.pl
  56 --- ImageMagick-5.5.6.orig/PerlMagick/demo/shadow_text.pl       Sat Jun 14 17:16:03 2003
  57 +++ ImageMagick-5.5.6/PerlMagick/demo/shadow_text.pl    Sat Jun 14 17:48:48 2003
  58 @@ -1,4 +1,4 @@
  59 -#!/usr/local/bin/perl
  60 +#!/usr/bin/perl
  61  #
  62  # Make simple text with a shadow.
  63  #
  64 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/shapes.pl ImageMagick-5.5.6/PerlMagick/demo/shapes.pl
  65 --- ImageMagick-5.5.6.orig/PerlMagick/demo/shapes.pl    Sat Jun 14 17:16:03 2003
  66 +++ ImageMagick-5.5.6/PerlMagick/demo/shapes.pl Sat Jun 14 17:48:48 2003
  67 @@ -1,4 +1,4 @@
  68 -#!/usr/local/bin/perl
  69 +#!/usr/bin/perl
  70  # GD example using PerlMagick methods.
  71
  72  use Image::Magick;
  73 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/steganography.pl ImageMagick-5.5.6/PerlMagick/demo/steganography.pl
  74 --- ImageMagick-5.5.6.orig/PerlMagick/demo/steganography.pl     Sat Jun 14 17:16:03 2003
  75 +++ ImageMagick-5.5.6/PerlMagick/demo/steganography.pl  Sat Jun 14 17:48:48 2003
  76 @@ -1,4 +1,4 @@
  77 -#!/usr/local/bin/perl
  78 +#!/usr/bin/perl
  79
  80  use Image::Magick;
  81
  82 diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/tree.pl ImageMagick-5.5.6/PerlMagick/demo/tree.pl
  83 --- ImageMagick-5.5.6.orig/PerlMagick/demo/tree.pl      Sat Jun 14 17:16:03 2003
  84 +++ ImageMagick-5.5.6/PerlMagick/demo/tree.pl   Sat Jun 14 17:48:48 2003
  85 @@ -1,4 +1,4 @@
  86 -#!/usr/local/bin/perl
  87 +#!/usr/bin/perl
  88  require "lsys.pl";
  89
  90  %rule = (
  91 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/blob.t ImageMagick-5.5.7/PerlMagick/t/blob.t
  92 --- ImageMagick-5.5.7.orig/PerlMagick/t/blob.t  Sat Jun 14 17:16:03 2003
  93 +++ ImageMagick-5.5.7/PerlMagick/t/blob.t       Sat Jun 14 17:49:46 2003
  94 @@ -1,4 +1,4 @@
  95 -#!/usr/local/bin/perl\r
  96 +#!/usr/bin/perl\r
  97  #\r
  98  # Test image blobs.\r
  99  #\r
 100 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/read.t ImageMagick-5.5.7/PerlMagick/t/bzlib/read.t
 101 --- ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/read.t    Sat Jun 14 17:16:03 2003
 102 +++ ImageMagick-5.5.7/PerlMagick/t/bzlib/read.t Sat Jun 14 17:49:46 2003
 103 @@ -1,4 +1,4 @@
 104 -#!/usr/local/bin/perl\r
 105 +#!/usr/bin/perl\r
 106  #\r
 107  # Test reading an image which uses BZip compression\r
 108  #\r
 109 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/write.t ImageMagick-5.5.7/PerlMagick/t/bzlib/write.t
 110 --- ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/write.t   Sat Jun 14 17:16:03 2003
 111 +++ ImageMagick-5.5.7/PerlMagick/t/bzlib/write.t        Sat Jun 14 17:49:46 2003
 112 @@ -1,4 +1,4 @@
 113 -#!/usr/local/bin/perl\r
 114 +#!/usr/bin/perl\r
 115  #\r
 116  # Test writing files using bzlib-based compression\r
 117  #\r
 118 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/cgm/read.t ImageMagick-5.5.7/PerlMagick/t/cgm/read.t
 119 --- ImageMagick-5.5.7.orig/PerlMagick/t/cgm/read.t      Sat Jun 14 17:16:03 2003
 120 +++ ImageMagick-5.5.7/PerlMagick/t/cgm/read.t   Sat Jun 14 17:49:46 2003
 121 @@ -1,4 +1,4 @@
 122 -#!/usr/local/bin/perl\r
 123 +#!/usr/bin/perl\r
 124  #\r
 125  # Test reading CGM files\r
 126  #\r
 127 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/filter.t ImageMagick-5.5.7/PerlMagick/t/filter.t
 128 --- ImageMagick-5.5.7.orig/PerlMagick/t/filter.t        Sat Jun 14 17:16:03 2003
 129 +++ ImageMagick-5.5.7/PerlMagick/t/filter.t     Sat Jun 14 17:49:46 2003
 130 @@ -1,4 +1,4 @@
 131 -#!/usr/local/bin/perl\r
 132 +#!/usr/bin/perl\r
 133  #\r
 134  # Test image filter.\r
 135  #\r
 136 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/fpx/read.t ImageMagick-5.5.7/PerlMagick/t/fpx/read.t
 137 --- ImageMagick-5.5.7.orig/PerlMagick/t/fpx/read.t      Sat Jun 14 17:16:03 2003
 138 +++ ImageMagick-5.5.7/PerlMagick/t/fpx/read.t   Sat Jun 14 17:49:46 2003
 139 @@ -1,4 +1,4 @@
 140 -#!/usr/local/bin/perl\r
 141 +#!/usr/bin/perl\r
 142  #\r
 143  # Test reading FPX images\r
 144  #\r
 145 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/fpx/write.t ImageMagick-5.5.7/PerlMagick/t/fpx/write.t
 146 --- ImageMagick-5.5.7.orig/PerlMagick/t/fpx/write.t     Sat Jun 14 17:16:03 2003
 147 +++ ImageMagick-5.5.7/PerlMagick/t/fpx/write.t  Sat Jun 14 17:49:46 2003
 148 @@ -1,4 +1,4 @@
 149 -#!/usr/local/bin/perl\r
 150 +#!/usr/bin/perl\r
 151  #\r
 152  # Test writing FPX images\r
 153  #\r
 154 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/getattribute.t ImageMagick-5.5.7/PerlMagick/t/getattribute.t
 155 --- ImageMagick-5.5.7.orig/PerlMagick/t/getattribute.t  Sat Jun 14 17:16:03 2003
 156 +++ ImageMagick-5.5.7/PerlMagick/t/getattribute.t       Sat Jun 14 17:49:46 2003
 157 @@ -1,4 +1,4 @@
 158 -#!/usr/local/bin/perl\r
 159 +#!/usr/bin/perl\r
 160  #\r
 161  # Test getting attributes.\r
 162  #\r
 163 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hdf/read.t ImageMagick-5.5.7/PerlMagick/t/hdf/read.t
 164 --- ImageMagick-5.5.7.orig/PerlMagick/t/hdf/read.t      Sat Jun 14 17:16:03 2003
 165 +++ ImageMagick-5.5.7/PerlMagick/t/hdf/read.t   Sat Jun 14 17:49:46 2003
 166 @@ -1,4 +1,4 @@
 167 -#!/usr/local/bin/perl\r
 168 +#!/usr/bin/perl\r
 169  #\r
 170  # Test reading HDF images\r
 171  #\r
 172 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hdf/write.t ImageMagick-5.5.7/PerlMagick/t/hdf/write.t
 173 --- ImageMagick-5.5.7.orig/PerlMagick/t/hdf/write.t     Sat Jun 14 17:16:03 2003
 174 +++ ImageMagick-5.5.7/PerlMagick/t/hdf/write.t  Sat Jun 14 17:49:46 2003
 175 @@ -1,4 +1,4 @@
 176 -#!/usr/local/bin/perl\r
 177 +#!/usr/bin/perl\r
 178  #\r
 179  # Test writing HDF images\r
 180  #\r
 181 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hpgl/read.t ImageMagick-5.5.7/PerlMagick/t/hpgl/read.t
 182 --- ImageMagick-5.5.7.orig/PerlMagick/t/hpgl/read.t     Sat Jun 14 17:16:03 2003
 183 +++ ImageMagick-5.5.7/PerlMagick/t/hpgl/read.t  Sat Jun 14 17:49:46 2003
 184 @@ -1,4 +1,4 @@
 185 -#!/usr/local/bin/perl\r
 186 +#!/usr/bin/perl\r
 187  #\r
 188  # Test Reading HP GL images\r
 189  #\r
 190 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jbig/read.t ImageMagick-5.5.7/PerlMagick/t/jbig/read.t
 191 --- ImageMagick-5.5.7.orig/PerlMagick/t/jbig/read.t     Sat Jun 14 17:16:03 2003
 192 +++ ImageMagick-5.5.7/PerlMagick/t/jbig/read.t  Sat Jun 14 17:49:46 2003
 193 @@ -1,4 +1,4 @@
 194 -#!/usr/local/bin/perl\r
 195 +#!/usr/bin/perl\r
 196  #\r
 197  # Test read image method on JBIG image\r
 198  #\r
 199 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jbig/write.t ImageMagick-5.5.7/PerlMagick/t/jbig/write.t
 200 --- ImageMagick-5.5.7.orig/PerlMagick/t/jbig/write.t    Sat Jun 14 17:16:03 2003
 201 +++ ImageMagick-5.5.7/PerlMagick/t/jbig/write.t Sat Jun 14 17:49:46 2003
 202 @@ -1,4 +1,4 @@
 203 -#!/usr/local/bin/perl\r
 204 +#!/usr/bin/perl\r
 205  #\r
 206  # Test write image method on JBIG image\r
 207  #\r
 208 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/read.t ImageMagick-5.5.7/PerlMagick/t/jpeg/read.t
 209 --- ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/read.t     Sat Jun 14 17:16:03 2003
 210 +++ ImageMagick-5.5.7/PerlMagick/t/jpeg/read.t  Sat Jun 14 17:49:46 2003
 211 @@ -1,4 +1,4 @@
 212 -#!/usr/local/bin/perl\r
 213 +#!/usr/bin/perl\r
 214  #\r
 215  # Test read image method on non-interlaced JPEG.\r
 216  #\r
 217 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/write.t ImageMagick-5.5.7/PerlMagick/t/jpeg/write.t
 218 --- ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/write.t    Sat Jun 14 17:16:03 2003
 219 +++ ImageMagick-5.5.7/PerlMagick/t/jpeg/write.t Sat Jun 14 17:49:46 2003
 220 @@ -1,4 +1,4 @@
 221 -#!/usr/local/bin/perl\r
 222 +#!/usr/bin/perl\r
 223  #\r
 224  # Test reading JPEG images\r
 225  #\r
 226 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/montage.t ImageMagick-5.5.7/PerlMagick/t/montage.t
 227 --- ImageMagick-5.5.7.orig/PerlMagick/t/montage.t       Sat Jun 14 17:16:03 2003
 228 +++ ImageMagick-5.5.7/PerlMagick/t/montage.t    Sat Jun 14 17:49:46 2003
 229 @@ -1,4 +1,4 @@
 230 -#!/usr/local/bin/perl\r
 231 +#!/usr/bin/perl\r
 232  #\r
 233  # Test montage method.\r
 234  #\r
 235 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/mpeg/read.t ImageMagick-5.5.7/PerlMagick/t/mpeg/read.t
 236 --- ImageMagick-5.5.7.orig/PerlMagick/t/mpeg/read.t     Sat Jun 14 17:16:03 2003
 237 +++ ImageMagick-5.5.7/PerlMagick/t/mpeg/read.t  Sat Jun 14 17:49:46 2003
 238 @@ -1,4 +1,4 @@
 239 -#!/usr/local/bin/perl\r
 240 +#!/usr/bin/perl\r
 241  #\r
 242  # Test reading MPEG files\r
 243  #\r
 244 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/read-16.t ImageMagick-5.5.7/PerlMagick/t/png/read-16.t
 245 --- ImageMagick-5.5.7.orig/PerlMagick/t/png/read-16.t   Sat Jun 14 17:16:03 2003
 246 +++ ImageMagick-5.5.7/PerlMagick/t/png/read-16.t        Sat Jun 14 17:49:46 2003
 247 @@ -1,4 +1,4 @@
 248 -#!/usr/local/bin/perl\r
 249 +#!/usr/bin/perl\r
 250  #\r
 251  # Test reading PNG images when 16bit support is enabled\r
 252  #\r
 253 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/read.t ImageMagick-5.5.7/PerlMagick/t/png/read.t
 254 --- ImageMagick-5.5.7.orig/PerlMagick/t/png/read.t      Sat Jun 14 17:16:03 2003
 255 +++ ImageMagick-5.5.7/PerlMagick/t/png/read.t   Sat Jun 14 17:49:46 2003
 256 @@ -1,4 +1,4 @@
 257 -#!/usr/local/bin/perl\r
 258 +#!/usr/bin/perl\r
 259  #\r
 260  # Test reading PNG images\r
 261  #\r
 262 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/write-16.t ImageMagick-5.5.7/PerlMagick/t/png/write-16.t
 263 --- ImageMagick-5.5.7.orig/PerlMagick/t/png/write-16.t  Sat Jun 14 17:16:03 2003
 264 +++ ImageMagick-5.5.7/PerlMagick/t/png/write-16.t       Sat Jun 14 17:49:46 2003
 265 @@ -1,4 +1,4 @@
 266 -#!/usr/local/bin/perl\r
 267 +#!/usr/bin/perl\r
 268  #\r
 269  # Test writing PNG images when 16bit support is enabled\r
 270  #\r
 271 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/write.t ImageMagick-5.5.7/PerlMagick/t/png/write.t
 272 --- ImageMagick-5.5.7.orig/PerlMagick/t/png/write.t     Sat Jun 14 17:16:03 2003
 273 +++ ImageMagick-5.5.7/PerlMagick/t/png/write.t  Sat Jun 14 17:49:46 2003
 274 @@ -1,4 +1,4 @@
 275 -#!/usr/local/bin/perl\r
 276 +#!/usr/bin/perl\r
 277  #\r
 278  # Test writing PNG images\r
 279  #\r
 280 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ps/read.t ImageMagick-5.5.7/PerlMagick/t/ps/read.t
 281 --- ImageMagick-5.5.7.orig/PerlMagick/t/ps/read.t       Sat Jun 14 17:16:03 2003
 282 +++ ImageMagick-5.5.7/PerlMagick/t/ps/read.t    Sat Jun 14 17:49:46 2003
 283 @@ -1,4 +1,4 @@
 284 -#!/usr/local/bin/perl\r
 285 +#!/usr/bin/perl\r
 286  #\r
 287  # Test Reading Postscript images\r
 288  #\r
 289 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ps/write.t ImageMagick-5.5.7/PerlMagick/t/ps/write.t
 290 --- ImageMagick-5.5.7.orig/PerlMagick/t/ps/write.t      Sat Jun 14 17:16:03 2003
 291 +++ ImageMagick-5.5.7/PerlMagick/t/ps/write.t   Sat Jun 14 17:49:46 2003
 292 @@ -1,4 +1,4 @@
 293 -#!/usr/local/bin/perl\r
 294 +#!/usr/bin/perl\r
 295  #\r
 296  # Test writing Postscript images\r
 297  #\r
 298 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/rad/read.t ImageMagick-5.5.7/PerlMagick/t/rad/read.t
 299 --- ImageMagick-5.5.7.orig/PerlMagick/t/rad/read.t      Sat Jun 14 17:16:03 2003
 300 +++ ImageMagick-5.5.7/PerlMagick/t/rad/read.t   Sat Jun 14 17:49:46 2003
 301 @@ -1,4 +1,4 @@
 302 -#!/usr/local/bin/perl\r
 303 +#!/usr/bin/perl\r
 304  #\r
 305  # Test reading Radiance file format\r
 306  #\r
 307 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/rad/write.t ImageMagick-5.5.7/PerlMagick/t/rad/write.t
 308 --- ImageMagick-5.5.7.orig/PerlMagick/t/rad/write.t     Sat Jun 14 17:16:03 2003
 309 +++ ImageMagick-5.5.7/PerlMagick/t/rad/write.t  Sat Jun 14 17:49:46 2003
 310 @@ -1,4 +1,4 @@
 311 -#!/usr/local/bin/perl\r
 312 +#!/usr/bin/perl\r
 313  #\r
 314  # Test writing Radiance file format\r
 315  #\r
 316 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/read.t ImageMagick-5.5.7/PerlMagick/t/read.t
 317 --- ImageMagick-5.5.7.orig/PerlMagick/t/read.t  Sat Jun 14 17:16:03 2003
 318 +++ ImageMagick-5.5.7/PerlMagick/t/read.t       Sat Jun 14 17:49:46 2003
 319 @@ -1,4 +1,4 @@
 320 -#!/usr/local/bin/perl\r
 321 +#!/usr/bin/perl\r
 322  #\r
 323  # Test reading formats supported directly by ImageMagick\r
 324  #\r
 325 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/setattribute.t ImageMagick-5.5.7/PerlMagick/t/setattribute.t
 326 --- ImageMagick-5.5.7.orig/PerlMagick/t/setattribute.t  Sat Jun 14 17:16:03 2003
 327 +++ ImageMagick-5.5.7/PerlMagick/t/setattribute.t       Sat Jun 14 17:49:46 2003
 328 @@ -1,4 +1,4 @@
 329 -#!/usr/local/bin/perl\r
 330 +#!/usr/bin/perl\r
 331  #\r
 332  # Test setting & getting attributes.\r
 333  #\r
 334 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/tiff/read.t ImageMagick-5.5.7/PerlMagick/t/tiff/read.t
 335 --- ImageMagick-5.5.7.orig/PerlMagick/t/tiff/read.t     Sat Jun 14 17:16:03 2003
 336 +++ ImageMagick-5.5.7/PerlMagick/t/tiff/read.t  Sat Jun 14 17:49:46 2003
 337 @@ -1,4 +1,4 @@
 338 -#!/usr/local/bin/perl\r
 339 +#!/usr/bin/perl\r
 340  #\r
 341  # Test reading TIFF images\r
 342  #\r
 343 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/tiff/write.t ImageMagick-5.5.7/PerlMagick/t/tiff/write.t
 344 --- ImageMagick-5.5.7.orig/PerlMagick/t/tiff/write.t    Sat Jun 14 17:16:03 2003
 345 +++ ImageMagick-5.5.7/PerlMagick/t/tiff/write.t Sat Jun 14 17:49:46 2003
 346 @@ -1,4 +1,4 @@
 347 -#!/usr/local/bin/perl\r
 348 +#!/usr/bin/perl\r
 349  #\r
 350  # Test writing TIFF images\r
 351  #\r
 352 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ttf/read.t ImageMagick-5.5.7/PerlMagick/t/ttf/read.t
 353 --- ImageMagick-5.5.7.orig/PerlMagick/t/ttf/read.t      Sat Jun 14 17:16:03 2003
 354 +++ ImageMagick-5.5.7/PerlMagick/t/ttf/read.t   Sat Jun 14 17:49:46 2003
 355 @@ -1,4 +1,4 @@
 356 -#!/usr/local/bin/perl
 357 +#!/usr/bin/perl
 358  #
 359  # Test read image method on TrueType font
 360  #
 361 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/wmf/read.t ImageMagick-5.5.7/PerlMagick/t/wmf/read.t
 362 --- ImageMagick-5.5.7.orig/PerlMagick/t/wmf/read.t      Sat Jun 14 17:16:03 2003
 363 +++ ImageMagick-5.5.7/PerlMagick/t/wmf/read.t   Sat Jun 14 17:49:46 2003
 364 @@ -1,4 +1,4 @@
 365 -#!/usr/local/bin/perl\r
 366 +#!/usr/bin/perl\r
 367  #\r
 368  # Test reading WMF files\r
 369  #\r
 370 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/write.t ImageMagick-5.5.7/PerlMagick/t/write.t
 371 --- ImageMagick-5.5.7.orig/PerlMagick/t/write.t Sat Jun 14 17:16:03 2003
 372 +++ ImageMagick-5.5.7/PerlMagick/t/write.t      Sat Jun 14 17:49:46 2003
 373 @@ -1,4 +1,4 @@
 374 -#!/usr/local/bin/perl\r
 375 +#!/usr/bin/perl\r
 376  #\r
 377  # Test writing formats supported directly by ImageMagick\r
 378  #\r
 379 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/x/read.t ImageMagick-5.5.7/PerlMagick/t/x/read.t
 380 --- ImageMagick-5.5.7.orig/PerlMagick/t/x/read.t        Sat Jun 14 17:16:03 2003
 381 +++ ImageMagick-5.5.7/PerlMagick/t/x/read.t     Sat Jun 14 17:49:46 2003
 382 @@ -1,4 +1,4 @@
 383 -#!/usr/local/bin/perl\r
 384 +#!/usr/bin/perl\r
 385  #\r
 386  # Test accessing X11 server\r
 387  #\r
 388 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/x/write.t ImageMagick-5.5.7/PerlMagick/t/x/write.t
 389 --- ImageMagick-5.5.7.orig/PerlMagick/t/x/write.t       Sat Jun 14 17:16:03 2003
 390 +++ ImageMagick-5.5.7/PerlMagick/t/x/write.t    Sat Jun 14 17:49:46 2003
 391 @@ -1,4 +1,4 @@
 392 -#!/usr/local/bin/perl\r
 393 +#!/usr/bin/perl\r
 394  #\r
 395  # Test accessing X11 server\r
 396  #\r
 397 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/xfig/read.t ImageMagick-5.5.7/PerlMagick/t/xfig/read.t
 398 --- ImageMagick-5.5.7.orig/PerlMagick/t/xfig/read.t     Sat Jun 14 17:16:03 2003
 399 +++ ImageMagick-5.5.7/PerlMagick/t/xfig/read.t  Sat Jun 14 17:49:46 2003
 400 @@ -1,4 +1,4 @@
 401 -#!/usr/local/bin/perl\r
 402 +#!/usr/bin/perl\r
 403  #\r
 404  # Test Reading Xfig files\r
 405  #\r
 406 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/zlib/read.t ImageMagick-5.5.7/PerlMagick/t/zlib/read.t
 407 --- ImageMagick-5.5.7.orig/PerlMagick/t/zlib/read.t     Sat Jun 14 17:16:03 2003
 408 +++ ImageMagick-5.5.7/PerlMagick/t/zlib/read.t  Sat Jun 14 17:49:46 2003
 409 @@ -1,4 +1,4 @@
 410 -#!/usr/local/bin/perl\r
 411 +#!/usr/bin/perl\r
 412  #\r
 413  # Test reading an image which uses Zip compression\r
 414  #\r
 415 diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/zlib/write.t ImageMagick-5.5.7/PerlMagick/t/zlib/write.t
 416 --- ImageMagick-5.5.7.orig/PerlMagick/t/zlib/write.t    Sat Jun 14 17:16:03 2003
 417 +++ ImageMagick-5.5.7/PerlMagick/t/zlib/write.t Sat Jun 14 17:49:46 2003
 418 @@ -1,4 +1,4 @@
 419 -#!/usr/local/bin/perl\r
 420 +#!/usr/bin/perl\r
 421  #\r
 422  # Test writing files using zlib-based compression\r
 423  #\r
 424 --- ImageMagick-5.5.7/www/perl.html.orig        2003-05-12 05:13:02.000000000 +0200
 425 +++ ImageMagick-5.5.7/www/perl.html     2003-07-18 08:37:34.000000000 +0200
 426 @@ -166,11 +166,11 @@
 427  <p>
 428
 429  <pre>
 430 -    #!/usr/local/bin/perl<br>    use Image::Magick;<br><br>    my($image, $x);<br><br>    $image = Image::Magick-&gt;new;<br>    $x = $image-&gt;Read('girl.png', 'logo.png', 'rose.png');<br>    warn "$x" if "$x";<br><br>    $x = $image-&gt;Crop(geometry=&gt;'100x100"+100"+100');<br>    warn "$x" if "$x";<br><br>    $x = $image-&gt;Write('x.png');<br>    warn "$x" if "$x";
 431 +    #!/usr/bin/perl<br>    use Image::Magick;<br><br>    my($image, $x);<br><br>    $image = Image::Magick-&gt;new;<br>    $x = $image-&gt;Read('girl.png', 'logo.png', 'rose.png');<br>    warn "$x" if "$x";<br><br>    $x = $image-&gt;Crop(geometry=&gt;'100x100"+100"+100');<br>    warn "$x" if "$x";<br><br>    $x = $image-&gt;Write('x.png');<br>    warn "$x" if "$x";
 432  </pre>
 433  The script reads three images, crops them, and writes a single image as a GIF animation sequence. In many cases you may want to access individual images of a sequence. The next example illustrates how this is done:
 434  <pre>
 435 -    #!/usr/local/bin/perl<br>    use Image::Magick;<br><br>    my($image, $p, $q);<br><br>    $image = new Image::Magick;<br>    $image-&gt;Read('x1.png');<br>    $image-&gt;Read('j*.jpg');<br>    $image-&gt;Read('k.miff[1, 5, 3]');<br>    $image-&gt;Contrast();<br>    for ($x = 0; $image-&gt;[x]; $x++)<br>    {<br>      $image-&gt;[x]-&gt;Frame('100x200') if $image-&gt;[x]-&gt;Get('magick') eq 'GIF';<br>      undef $image-&gt;[x] if $image-&gt;[x]-&gt;Get('columns') &lt; 100;<br>    }<br>    $p = $image-&gt;[1];<br>    $p-&gt;Draw(stroke=&gt;'red', primitive=&gt;'rectangle', points=&gt;20,20 100,100');<br>    $q = $p-&gt;Montage();<br>    undef $image;<br>    $q-&gt;Write('x.miff');
 436 +    #!/usr/bin/perl<br>    use Image::Magick;<br><br>    my($image, $p, $q);<br><br>    $image = new Image::Magick;<br>    $image-&gt;Read('x1.png');<br>    $image-&gt;Read('j*.jpg');<br>    $image-&gt;Read('k.miff[1, 5, 3]');<br>    $image-&gt;Contrast();<br>    for ($x = 0; $image-&gt;[x]; $x++)<br>    {<br>      $image-&gt;[x]-&gt;Frame('100x200') if $image-&gt;[x]-&gt;Get('magick') eq 'GIF';<br>      undef $image-&gt;[x] if $image-&gt;[x]-&gt;Get('columns') &lt; 100;<br>    }<br>    $p = $image-&gt;[1];<br>    $p-&gt;Draw(stroke=&gt;'red', primitive=&gt;'rectangle', points=&gt;20,20 100,100');<br>    $q = $p-&gt;Montage();<br>    undef $image;<br>    $q-&gt;Write('x.miff');
 437  </pre>
 438  Suppose you want to start out with a 100 by 100 pixel white canvas with a red pixel in the center. Try
 439  <pre>