Bug in Storable or in Perl?

I have been reported a problem with Storable on FreeBSD with the
following test script:

     1  use Storable qw(freeze);
     2  
     3  package FOO;
     4  
     5  sub STORABLE_freeze {
     6      my ($self, $cloning) = @_;
     7      die "in STORABLE_freeze";
     8  }
     9  
    10  package main;
    11  
    12  my $foo = bless {}, 'FOO';
    13  eval { freeze($foo) };
    14  print "error = '$@'";
    15  freeze($foo);

When run on my Linux machine, it correctly produces:

    error = 'In STORABLE_freeze at store-die line 7, at store-die line 13
    In STORABLE_freeze at store-die line 7, at store-die line 15

However, when run on FreeBSD, it says:

    error =  at - line 13
    in STORABLE_freeze at - line 7, at - line 15

This is with perl 5.005_03.

I have not access to a FreeBSD platform, so I can't debug this myself.
I'm going to add this test to Storable's regression test suite, but
of course, before doing that, I would like to determine the proper
cause of the bug.

Anyone can give me SSH access to a FreeBSD platform with perl 5.005_03
and Storable-1.0.11?  I can use later perls if they also exhibit the
problem.

Thanks!

Raphael

• Bug in Storable or in Perl? by Raphael Manfredi
• Re: Bug in Storable or in Perl? by Raphael Manfredi