Re: Odd behavior with DBM::Deep

Your code works for me:

ivy 1003% perl dbmdeep.pl
$$VAR1 = \bless( {
     'TASK_QUEUE' => bless( {
                'DEV' => bless( [
                             bless( {
                                     'FILE' => 'bar1',
                                     'CMD' => 'foo1'
                                    }, 'DBM::Deep' ),
                             bless( {
                                     'FILE' => 'bar2',
                                     'CMD' => 'foo2'
                                    }, 'DBM::Deep' )
                                ], 'DBM::Deep' )
                            }, 'DBM::Deep' )
                }, 'DBM::Deep' );
$VAR1 = \bless( {
                 'FILE' => 'bar1',
                 'CMD' => 'foo1'
                }, 'DBM::Deep' );
$VAR1 = \bless( {
      'TASK_QUEUE' => bless( {
                 'DEV' => bless( [
                              bless( {
                                      'FILE' => 'bar2',
                                      'CMD' => 'foo2'
                                     }, 'DBM::Deep' )
                                 ], 'DBM::Deep' )
                             }, 'DBM::Deep' )
                }, 'DBM::Deep' );
[download]

Perl 5.8.0, DBM::Deep 0.94, Linux 2.4.

-Mark

Comment on Re: Odd behavior with DBM::Deep Download Code

Replies are listed 'Best First'.
Re^2: Odd behavior with DBM::Deep by Nitrox (Chaplain) on Oct 21, 2004 at 00:48 UTC
Thanks for testing it, and I'm glad to hear that it's not a coding issue! Obviously it's an environment issue, so now I just have narrow down if it's an issue with Perl 5.8.4 or specifically with ActiveState's release. Anyone? -Nitrox	[reply]
Re^3: Odd behavior with DBM::Deep by BrowserUk (Patriarch) on Oct 21, 2004 at 01:16 UTC
Seems to be okay on 5.8.4/AS810 with DBM::Deep v0.94. `P:\test>test2 $VAR1 = \bless( { 'TASK_QUEUE' => bless( { 'DEV' => bless( [ bless( { 'FILE' => 'bar1', 'CMD' => 'foo1' }, 'DBM::Deep' ), bless( { 'FILE' => 'bar2', 'CMD' => 'foo2' }, 'DBM::Deep' ) ], 'DBM::Deep' ) }, 'DBM::Deep' ) }, 'DBM::Deep' ); $VAR1 = \bless( { 'FILE' => 'bar1', 'CMD' => 'foo1' }, 'DBM::Deep' ); $VAR1 = \bless( { 'TASK_QUEUE' => bless( { 'DEV' => bless( [ bless( { 'FILE' => 'bar2', 'CMD' => 'foo2' }, 'DBM::Deep' ) ], 'DBM::Deep' ) }, 'DBM::Deep' ) }, 'DBM::Deep' );` [download] `P:\test>perl -V Summary of my perl5 (revision 5 version 8 subversion 4) configuration: Platform: osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread [SNIP] Locally applied patches: ActivePerl Build 810 22751 Update to Test.pm 1.25 21540 Fix backward-compatibility issues in if.pm Built under MSWin32 Compiled at Jun 1 2004 11:52:21 @INC: c:/Perl/lib c:/Perl/site/lib . P:\test>perl -MDBM::Deep -e" print $DBM::Deep::VERSION" 0.94` [download] Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail "Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon	[reply] [d/l] [select]