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 (magick wizards.dupont.com)
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 htt
p://www.imagemagick.org/script/perl-magick.php
110
111 =head1 AUTHOR
112
113 Kyle Shorter magick-users imagemagick.org
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
grante visi.com
_______________________________________________
Magick-users mailing list
Magick-users imagemagick.org
http://studio.imagemagick.org/mailman/listinfo/magick
-users
|