Storable::dclone breaking compiled regular expressions

[aufflick]

What the title says - anyone hit this before? The Storable docs (perl 5.8.5) don't say anything about it.

psh% print Dumper $foo
$VAR1 = {
          'bar' => qr/(?-xism:bar)/
        };
psh% $foo2 = Storable::dclone $foo
psh% print Dumper $foo2
$VAR1 = {
          'bar' => qr/Regexp=SCALAR(0x8df0b40)/
        };

The main store/restore functionality works fine with compiled regexes - I would have thought that dclone uses the same code? How does anyone else do deep cloning of hashes?

[BrowserUk]

Try Clone, it doesn't appear to exhibit the same limitation:

P:\test>p1
perl> use Clone qw[clone];;
perl> $foo = { bar => qr[bar] };;
perl> print Dumper $foo;;
$VAR1 = {
          'bar' => qr/(?-xism:bar)/
        };

perl> $foo2 = clone $foo;;
perl> print Dumper $foo2;;
$VAR1 = {
          'bar' => qr/(?-xism:bar)/
        };