diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/annotate.pl ImageMagick-5.5.6/PerlMagick/demo/annotate.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/annotate.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/annotate.pl Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl use Image::Magick; diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/button.pl ImageMagick-5.5.6/PerlMagick/demo/button.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/button.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/button.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Make simple beveled button. # diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/composite.pl ImageMagick-5.5.6/PerlMagick/demo/composite.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/composite.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/composite.pl Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl use Image::Magick; diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/demo.pl ImageMagick-5.5.6/PerlMagick/demo/demo.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/demo.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/demo.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Overall demo of the major PerlMagick methods. # diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/lsys.pl ImageMagick-5.5.6/PerlMagick/demo/lsys.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/lsys.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/lsys.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # Written by jreed@itis.com, adapted by John Cristy. diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/piddle.pl ImageMagick-5.5.6/PerlMagick/demo/piddle.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/piddle.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/piddle.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # Piddle example using PerlMagick methods. use Image::Magick; diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/shadow_text.pl ImageMagick-5.5.6/PerlMagick/demo/shadow_text.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/shadow_text.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/shadow_text.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Make simple text with a shadow. # diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/shapes.pl ImageMagick-5.5.6/PerlMagick/demo/shapes.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/shapes.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/shapes.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # GD example using PerlMagick methods. use Image::Magick; diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/steganography.pl ImageMagick-5.5.6/PerlMagick/demo/steganography.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/steganography.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/steganography.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl use Image::Magick; diff -Naur ImageMagick-5.5.6.orig/PerlMagick/demo/tree.pl ImageMagick-5.5.6/PerlMagick/demo/tree.pl --- ImageMagick-5.5.6.orig/PerlMagick/demo/tree.pl Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.6/PerlMagick/demo/tree.pl Sat Jun 14 17:48:48 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl require "lsys.pl"; %rule = ( diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/blob.t ImageMagick-5.5.7/PerlMagick/t/blob.t --- ImageMagick-5.5.7.orig/PerlMagick/t/blob.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/blob.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test image blobs. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/read.t ImageMagick-5.5.7/PerlMagick/t/bzlib/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/bzlib/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading an image which uses BZip compression # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/write.t ImageMagick-5.5.7/PerlMagick/t/bzlib/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/bzlib/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/bzlib/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing files using bzlib-based compression # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/cgm/read.t ImageMagick-5.5.7/PerlMagick/t/cgm/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/cgm/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/cgm/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading CGM files # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/filter.t ImageMagick-5.5.7/PerlMagick/t/filter.t --- ImageMagick-5.5.7.orig/PerlMagick/t/filter.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/filter.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test image filter. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/fpx/read.t ImageMagick-5.5.7/PerlMagick/t/fpx/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/fpx/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/fpx/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading FPX images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/fpx/write.t ImageMagick-5.5.7/PerlMagick/t/fpx/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/fpx/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/fpx/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing FPX images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/getattribute.t ImageMagick-5.5.7/PerlMagick/t/getattribute.t --- ImageMagick-5.5.7.orig/PerlMagick/t/getattribute.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/getattribute.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test getting attributes. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hdf/read.t ImageMagick-5.5.7/PerlMagick/t/hdf/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/hdf/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/hdf/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading HDF images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hdf/write.t ImageMagick-5.5.7/PerlMagick/t/hdf/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/hdf/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/hdf/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing HDF images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/hpgl/read.t ImageMagick-5.5.7/PerlMagick/t/hpgl/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/hpgl/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/hpgl/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test Reading HP GL images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jbig/read.t ImageMagick-5.5.7/PerlMagick/t/jbig/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/jbig/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/jbig/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test read image method on JBIG image # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jbig/write.t ImageMagick-5.5.7/PerlMagick/t/jbig/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/jbig/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/jbig/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test write image method on JBIG image # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/read.t ImageMagick-5.5.7/PerlMagick/t/jpeg/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/jpeg/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test read image method on non-interlaced JPEG. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/write.t ImageMagick-5.5.7/PerlMagick/t/jpeg/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/jpeg/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/jpeg/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading JPEG images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/montage.t ImageMagick-5.5.7/PerlMagick/t/montage.t --- ImageMagick-5.5.7.orig/PerlMagick/t/montage.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/montage.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test montage method. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/mpeg/read.t ImageMagick-5.5.7/PerlMagick/t/mpeg/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/mpeg/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/mpeg/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading MPEG files # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/read-16.t ImageMagick-5.5.7/PerlMagick/t/png/read-16.t --- ImageMagick-5.5.7.orig/PerlMagick/t/png/read-16.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/png/read-16.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading PNG images when 16bit support is enabled # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/read.t ImageMagick-5.5.7/PerlMagick/t/png/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/png/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/png/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading PNG images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/write-16.t ImageMagick-5.5.7/PerlMagick/t/png/write-16.t --- ImageMagick-5.5.7.orig/PerlMagick/t/png/write-16.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/png/write-16.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing PNG images when 16bit support is enabled # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/png/write.t ImageMagick-5.5.7/PerlMagick/t/png/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/png/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/png/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing PNG images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ps/read.t ImageMagick-5.5.7/PerlMagick/t/ps/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/ps/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/ps/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test Reading Postscript images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ps/write.t ImageMagick-5.5.7/PerlMagick/t/ps/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/ps/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/ps/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing Postscript images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/rad/read.t ImageMagick-5.5.7/PerlMagick/t/rad/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/rad/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/rad/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading Radiance file format # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/rad/write.t ImageMagick-5.5.7/PerlMagick/t/rad/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/rad/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/rad/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing Radiance file format # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/read.t ImageMagick-5.5.7/PerlMagick/t/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading formats supported directly by ImageMagick # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/setattribute.t ImageMagick-5.5.7/PerlMagick/t/setattribute.t --- ImageMagick-5.5.7.orig/PerlMagick/t/setattribute.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/setattribute.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test setting & getting attributes. # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/tiff/read.t ImageMagick-5.5.7/PerlMagick/t/tiff/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/tiff/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/tiff/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading TIFF images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/tiff/write.t ImageMagick-5.5.7/PerlMagick/t/tiff/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/tiff/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/tiff/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing TIFF images # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/ttf/read.t ImageMagick-5.5.7/PerlMagick/t/ttf/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/ttf/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/ttf/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test read image method on TrueType font # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/wmf/read.t ImageMagick-5.5.7/PerlMagick/t/wmf/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/wmf/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/wmf/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading WMF files # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/write.t ImageMagick-5.5.7/PerlMagick/t/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing formats supported directly by ImageMagick # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/x/read.t ImageMagick-5.5.7/PerlMagick/t/x/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/x/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/x/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test accessing X11 server # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/x/write.t ImageMagick-5.5.7/PerlMagick/t/x/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/x/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/x/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test accessing X11 server # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/xfig/read.t ImageMagick-5.5.7/PerlMagick/t/xfig/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/xfig/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/xfig/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test Reading Xfig files # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/zlib/read.t ImageMagick-5.5.7/PerlMagick/t/zlib/read.t --- ImageMagick-5.5.7.orig/PerlMagick/t/zlib/read.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/zlib/read.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test reading an image which uses Zip compression # diff -Naur ImageMagick-5.5.7.orig/PerlMagick/t/zlib/write.t ImageMagick-5.5.7/PerlMagick/t/zlib/write.t --- ImageMagick-5.5.7.orig/PerlMagick/t/zlib/write.t Sat Jun 14 17:16:03 2003 +++ ImageMagick-5.5.7/PerlMagick/t/zlib/write.t Sat Jun 14 17:49:46 2003 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl # # Test writing files using zlib-based compression # --- ImageMagick-5.5.7/www/perl.html.orig 2003-05-12 05:13:02.000000000 +0200 +++ ImageMagick-5.5.7/www/perl.html 2003-07-18 08:37:34.000000000 +0200 @@ -166,11 +166,11 @@ 

-    #!/usr/local/bin/perl
    use Image::Magick;

    my($image, $x);

    $image = Image::Magick->new;
    $x = $image->Read('girl.png', 'logo.png', 'rose.png');
    warn "$x" if "$x";

    $x = $image->Crop(geometry=>'100x100"+100"+100');
    warn "$x" if "$x";

    $x = $image->Write('x.png');
    warn "$x" if "$x";
+    #!/usr/bin/perl
    use Image::Magick;

    my($image, $x);

    $image = Image::Magick->new;
    $x = $image->Read('girl.png', 'logo.png', 'rose.png');
    warn "$x" if "$x";

    $x = $image->Crop(geometry=>'100x100"+100"+100');
    warn "$x" if "$x";

    $x = $image->Write('x.png');
    warn "$x" if "$x";
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: 
-    #!/usr/local/bin/perl
    use Image::Magick;

    my($image, $p, $q);

    $image = new Image::Magick;
    $image->Read('x1.png');
    $image->Read('j*.jpg');
    $image->Read('k.miff[1, 5, 3]');
    $image->Contrast();
    for ($x = 0; $image->[x]; $x++)
    {
      $image->[x]->Frame('100x200') if $image->[x]->Get('magick') eq 'GIF';
      undef $image->[x] if $image->[x]->Get('columns') < 100;
    }
    $p = $image->[1];
    $p->Draw(stroke=>'red', primitive=>'rectangle', points=>20,20 100,100');
    $q = $p->Montage();
    undef $image;
    $q->Write('x.miff');
+    #!/usr/bin/perl
    use Image::Magick;

    my($image, $p, $q);

    $image = new Image::Magick;
    $image->Read('x1.png');
    $image->Read('j*.jpg');
    $image->Read('k.miff[1, 5, 3]');
    $image->Contrast();
    for ($x = 0; $image->[x]; $x++)
    {
      $image->[x]->Frame('100x200') if $image->[x]->Get('magick') eq 'GIF';
      undef $image->[x] if $image->[x]->Get('columns') < 100;
    }
    $p = $image->[1];
    $p->Draw(stroke=>'red', primitive=>'rectangle', points=>20,20 100,100');
    $q = $p->Montage();
    undef $image;
    $q->Write('x.miff');
Suppose you want to start out with a 100 by 100 pixel white canvas with a red pixel in the center. Try