I'm trying to run "bins" 1.1.29 (a photo album program) with
Image Magick version 6.2.8.0 and I always get the following error:
Deep recursion on subroutine "Image::Magick::AUTOLOAD" at
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux/Image/Magick.pm line 42.
I've found reports of this problem back as far as 6.0.6.2, but
reportedly 6.0.5.2 was OK. Any ideas on what might be wrong?
1 package Image::Magick;
2
3 # Released Feb. 17, 1997 by Kyle Shorter ([EMAIL PROTECTED])
4 # Public Domain
5
6 use strict;
7 use Carp;
8 use vars qw($VERSION @ISA @EXPORT $AUTOLOAD);
9
10 require 5.002;
11 require Exporter;
12 require DynaLoader;
13 require AutoLoader;
14
15 @ISA = qw(Exporter DynaLoader);
16 # Items to export into callers namespace by default. Note: do not export
17 # names by default without a very good reason. Use EXPORT_OK instead.
18 # Do not simply export all your public functions/methods/constants.
19 @EXPORT =
20 qw(
21 Success Transparent Opaque QuantumDepth QuantumRange MaxRGB
22 WarningException ResourceLimitWarning TypeWarning OptionWarning
23 DelegateWarning MissingDelegateWarning CorruptImageWarning
24 FileOpenWarning BlobWarning StreamWarning CacheWarning
CoderWarning
25 ModuleWarning DrawWarning ImageWarning XServerWarning
RegistryWarning
26 ConfigureWarning ErrorException ResourceLimitError TypeError
27 OptionError DelegateError MissingDelegateError CorruptImageError
28 FileOpenError BlobError StreamError CacheError CoderError
29 ModuleError DrawError ImageError XServerError RegistryError
30 ConfigureError FatalErrorException
31 );
32
33 $VERSION = '6.2.8';
34
35 sub AUTOLOAD {
36 # This AUTOLOAD is used to 'autoload' constants from the constant()
37 # XS function. If a constant is not found then control is passed
38 # to the AUTOLOAD in AutoLoader.
39
40 my $constname;
41 ($constname = $AUTOLOAD) =~ s/.*:://;
42 my $val = constant($constname, @_ ? $_[0] : 0);
43 if ($! != 0) {
44 if ($! =~ /Invalid/) {
45 $AutoLoader::AUTOLOAD = $AUTOLOAD;
46 goto &AutoLoader::AUTOLOAD;
47 }
48 else {
49 my($pack,$file,$line) = caller;
50 die "Your vendor has not defined PerlMagick macro
$pack\:\:$constname, used at $file line $line.\n";
51 }
52 }
53 eval "sub $AUTOLOAD { $val }";
54 goto &$AUTOLOAD;
55 }
56
57 bootstrap Image::Magick $VERSION;
58
59 # Preloaded methods go here.
60
61 sub new
62 {
63 my $this = shift;
64 my $class = ref($this) || $this || "Image::Magick";
65 my $self = [ ];
66 bless $self, $class;
67 $self->set(@_) if @_;
68 return $self;
69 }
70
71 sub New
72 {
73 my $this = shift;
74 my $class = ref($this) || $this || "Image::Magick";
75 my $self = [ ];
76 bless $self, $class;
77 $self->set(@_) if @_;
78 return $self;
79 }
80
81 # Autoload methods go after =cut, and are processed by the autosplit
program.
82
83 1;
84 __END__
85
86 =head1 NAME
87
88 Image::Magick - Perl extension for calling ImageMagick's libMagick
methods
89
90 =head1 SYNOPSIS
91
92 use Image::Magick;
93 $p = new Image::Magick;
94 $p->Read("imagefile");
95 $p->Set(attribute => value, ...)
96 ($a, ...) = $p->Get("attribute", ...)
97 $p->routine(parameter => value, ...)
98 $p->Mogrify("Routine", parameter => value, ...)
99 $p->Write("filename");
100
101 =head1 DESCRIPTION
102
103 This Perl extension allows the reading, manipulation and writing of
104 a large number of image file formats using the ImageMagick library.
105 It was originally developed to be used by CGI scripts for Web pages.
106
107 A Web page has been set up for this extension. See:
108
109 http://www.imagemagick.org/script/perl-magick.php
110
111 =head1 AUTHOR
112
113 Kyle Shorter [email protected]
114
115 =head1 BUGS
116
117 Has all the bugs of ImageMagick and much, much more!
118
119 =head1 SEE ALSO
120
121 perl(1).
122
123 =cut
--
Grant Edwards
[EMAIL PROTECTED]
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
