in reply to Re^2: Small Corrupted Storable Retrieve Dies With an Invalid "Out of memory!"
in thread Small Corrupted Storable Retrieve Dies With an Invalid "Out of memory!"

I was too lazy to look at the syntax of yet another macro. Storable is just one big macro! It is probably better to do: 

                if ( (unsigned)size > 1000000 ) CROAK(("Bugger!\n"));

[download]

Note that you need double parenths as the call to croak does not have any! croak is a Perl alias for Perl_croak_nocontext so the call is near identical but you are setting the context to dirty, looking at the source this is caught and cleaned so should fix the leak.

cheers

tachyon

  • Comment on Re^3:Small Corrupted Storable Retrieve Dies With an Invalid "Out of memory!"
  • Download Code

In Section Seekers of Perl Wisdom