See comments below.<br><br><div class="gmail_quote">On Tue, Dec 22, 2009 at 8:49 PM, Joseph Werner <span dir="ltr"><<a href="mailto:telcodev@gmail.com">telcodev@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hey guys [and gals],<br>
<br>
I encountered a strange Perl code phenomenon dealing with some object<br>
references, and and array of object references. Specifically, I could<br>
not shift a reference to an object off of an array of object<br>
references. More troubling, I also was unable to use the object<br>
references in a boolean context. I have written code very similar to<br>
this dozens if not hundreds of times and never encountered this type<br>
of problem...<br>
<br>
The code is all proprietary, and the powers that be frown on release<br>
of any sort, so I will pseudo code what I am talking about. We are<br>
running Active State Perl 5.10 on a Win32 platform, if that matters<br>
<br>
my $some_parms = shift;<br>
my $objhref = get_objects($some_parms);<br>
# $objhref = {<br>
# '01' => bless( {}, 'ASpecialObject' ),<br>
# '03' => bless( {}, 'ASpecialObject' ),<br>
# '02' => bless( {}, 'ASpecialObject' )<br>
# };<br>
<br></blockquote><div><br>Have you tried assigning anything from $objhref directly at this point? For example, do you get an error if you try to do $myobj = $objhref->{01}?<br> </div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
# ASpecialObject class does have the <=> overloaded<br>
# But I cannot see the making a difference...<br>
<br>
# Sorting works fine:<br>
<br>
my @arrayoforefs;<br>
eval {<br>
@arrayoforefs = sort { $a <=> $b } values %{$objhref};<br>
}<br>
# Error checks ignored<br></blockquote><div><br>Since you've wrapped this in an eval it seems like you're expecting exceptions to be thrown. Why ignore them? See if there is an exception that might lead you in the right direction.<br>
<br>Also, are you able to access anything within @arrayoforefs without using an assignment? For example what happens when you do warn "arrayofrefs[0]: @arrayofrefs[0]"? Do the server crash?<br> </div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
# Server dies silently at the following statement:<br>
<br>
my $chosenO = shift @arrayoforefs;<br>
<br>
# If I do this instead:<br>
<br>
my $chosenO = $arrayoforefs[0];<br>
<br>
# Then this causes the server to silently crash:<br>
<br>
return unless $chosenO;<br></blockquote><div><br>You've said "server dies silently" and "silently crash" but I'm not clear what you mean. Is this two different things or the same? By "crash" do you mean that the server process exits with a core dump? Is this an Apache server? Mod_perl? When perl "dies" it generates a message. Also, in my experience when Apache dumps core it puts a message in the log but you've said "silently" so perhaps something else is going on.<br>
<br>My suggestion is to code up the simplest case you can where the problem is encountered. Strip out as much code as possible that doesn't directly relate to what you're doing. For example, the following script can be run outside of your web server and outside of your Mason environment:<br>
<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use lib "/my/code/path";<br>use ASpecialObject;<br><br>my $objects = {<br> 01 => ASpecialObject->new(),<br> 02 => ASpecialObject->new(),<br>
};<br><br>my @sorted = sort {$a <=> $b} values %{$objects};<br><br>#Does this result in the same problems you're having?<br>
my $chosen0 = shift @sorted;<br>print "If you see this then the script is done\n";<br>__END__<br><br>You'll probably have to include some object initialization code but if you still have problems with this then you know the problem is somewhere in ASpecialObject.pm. Then you can start stripping out the code from there to find the minimum amount of code that causes the problem.<br>
<br>-- <br>Ben<br></div></div>