NEVER MIND --

Apparently, dbmopen() and dbmclose() were not intended to be used with return values in mind.

Adding the 'undef' statement in following modified snippet solves the problem:

#!/usr/bin/perl -w use strict; my $TSTFNM = "test-dbm-data"; # Test database base filename my $TSTACC = 0666; # Test database default a +ccess my $opnret = dbmopen(my %TSTDBM, $TSTFNM, $TSTACC); print "DBM Open: '$opnret'\n"; undef $opnret; my $cloret = dbmclose(%TSTDBM); exit; __END__ [download]

Which means I can eliminate the assignment on the dbmopen() or do an undef before dbmclose().

Sorry to disturb.

- Steven K. Mariner