1. In the debugger, what happens if, instead of using p $retValType, you
use x $retValType?
2. The same goes for $retVal
3. This is occurring during a DESTROY - is this significant?
Peter
On Mon, 2011-08-01 at 17:26 +0300, Yossi Itzkovich wrote:
> Gabor,
> Yes, I did try it with perl debugger (line numbers changed from first
> mail):
>
> DB<2> n
> main::funcMap(./cpp2idl.pl:707): my $retValType=
> $retVal->{'type'};
>
> DB<2> n
> main::funcMap(./cpp2idl.pl:708): if ($retValType =~
> m/^struct/)
> main::funcMap(./cpp2idl.pl:709): {
>
> DB<2> print $retValType
> enum eAsonTrailRate
>
> DB<3> s
> Can't use string ("enum eAsonTrailRate") as a HASH ref while "strict
> refs" in use at ./cpp2idl.pl line 708, <$fh> line 163.
> at ./cpp2idl.pl line 708
> main::funcMap('eAsonTrailRate') called at ./cpp2idl.pl line
> 416
> main::processNewStruct('eAsonTrailRate', 0) called
> at ./cpp2idl.pl line 366
>
> main::processFile('/auto/enm_proj/XDM_phase_VIII/EMS8.2R3NG/inc/imnmstrailinfo.h')
> called at ./cpp2idl.pl line 59
> IO::Handle::DESTROY(/auto/enm_soft/i86pc/perl/lib/5.8.8/i86pc-solaris/IO/Handle.pm:333):
> 333: sub DESTROY {}
>
> As you can see, the debugger sees $retValType as a simple string, that
> was set in line 707, but the program exit with error.
> The strangest thing here, is that line 708 has no de-refencing at all,
> it is in the previous line that it happened.
>
>
> Yossi
> Yossi
>
> > -----Original Message-----
> > From: [email protected] [mailto:[email protected]] On
> > Behalf Of Gabor Szabo
> > Sent: Monday, August 01, 2011 4:54 PM
> > To: Perl in Israel
> > Subject: Re: [Israel.pm] Bug in Perl ? (or : what am I missing
> here ?)
> >
> > On Mon, Aug 1, 2011 at 4:03 PM, Yossi Itzkovich
> > <[email protected]> wrote:
> > > Hi again,
> > >
> > >
> > >
> > > Now it looks even weirder :
> > >
> > >
> > >
> > > my $retValType=$retVal->{'type'};
> > >
> > > if ($retValType =~ m/^struct/)
> > >
> > >
> > >
> > > and I get the same error (Can't use string ("enum eAsonTrail") as
> a
> > HASH ref
> > > …) on the second line , and not on the first one !
> > >
> >
> > Line numbers can be off for various reasons.
> > I don't ask if you ran it through the debugger but have you
> > tried printing $retVal before the assignment ?
> > I guess - if this is a loop - you will see several lines like
> this:
> > HASH(0x3242)
> > and then on that contains. "enum eAsonTrail"
> >
> > That's a string and not a HASH ref, You will have to track down why
> do
> > you
> > have that sting in $retVal instead of a HASH ref?
> >
> > Gabor
> > _______________________________________________
> > Perl mailing list
> > [email protected]
> > http://mail.perl.org.il/mailman/listinfo/perl
>
>
> This e-mail message is intended for the recipient only and contains
> information which is CONFIDENTIAL and which may be proprietary to ECI
> Telecom. If you have received this transmission in error, please
> inform us by e-mail, phone or fax, and then delete the original and
> all copies thereof.
>
>
> _______________________________________________
> Perl mailing list
> [email protected]
> http://mail.perl.org.il/mailman/listinfo/perl
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
