[Zope-Perl] PerlError: constant item trapped by operation mask at (eval 12) line 1.

[Maarten Slaets]

Hi,

I'm getting an error while testing a perl script. At (seamingly) random
edit's I get the traceback seen below. Only thing I can do to continue
editing is restart my zope.

Perl Script:
id: perlmenu
arg: self
code:
my @res;
search($self);


sub search {
  my @array = ('Folder', 'DTML Document');
  for ($_[0]->objectValues(\@array)) {
    push(@res, $_->getId());
  }
}

return join("\n", @res);


Now if I start modifying the code, at some point I get a traceback like
this:



Traceback (innermost last):
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 223,
in publish_module
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 187,
in publish
  File /home/zope/Zope-2.3.2/lib/python/Zope/__init__.py, line 221, in
zpublisher_exception_hook
    (Object: perlmenu)
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 171,
in publish
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/mapply.py, line 160,
in mapply
    (Object: manage_edit)
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 112,
in call_object
    (Object: manage_edit)
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 96, in manage_edit
    (Object: perlmenu)
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 155, in recompile
    (Object: perlmenu)
PerlError: constant item trapped by operation mask at (eval 11) line 1.


If I add another perl script:
id: somethingelse
arg:
code:
1;

I get the same error:

Traceback (innermost last):
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 223,
in publish_module
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 187,
in publish
  File /home/zope/Zope-2.3.2/lib/python/Zope/__init__.py, line 221, in
zpublisher_exception_hook
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 171,
in publish
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/mapply.py, line 160,
in mapply
    (Object: manage_addPerlMethod)
  File /home/zope/Zope-2.3.2/lib/python/ZPublisher/Publish.py, line 112,
in call_object
    (Object: manage_addPerlMethod)
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 224, in manage_addPerlMethod
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 83, in __init__
    (Object: testfdsfsdf)
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 96, in manage_edit
    (Object: testfdsfsdf)
  File /home/zope/Zope-2.3.2/lib/python/Products/PerlMethod/__init__.py,
line 155, in recompile
    (Object: testfdsfsdf)
PerlError: constant item trapped by operation mask at (eval 12) line 1.

I'm using:
Zope Version 
                Zope 2.3.2 (source release, python 1.5.2, linux2) 
 Python Version 
                2.1 (#2, May 1 2001, 14:50:43) [GCC 2.95.2 20000220
(Debian GNU/Linux)] 
 System Platform 
                linux2 
 Process Id 
                1352 (1026) 
 Running For 
                31 min 16 sec 

and

zoperl-1.0.beta5
pyperl-1.0.1

I don't have much time to look at this further for now, but if any of
you get the same error, please let me know.

-- 
Maarten Slaets
Contact: http://www.neolabs.be/vcard/MaartenSlaets.vcf