rather unclear for a title -- i'm sorry

i'm handling my sessions like this: 

sub sessionValidate {
    $sessionFile = "$systemRoot/sessions/$FORM{sessionID}";
    if ( (open FILE, "${sessionFile}.db"){
        close FILE;
        dbmopen %stored, $sessionFile, 0655;
        %session = %stored;
        dbmclose %stored;
        return 1;
    } else {;
        return 0;
    }
}

sub sessionWrite {
    do     {
            $sessionID         = md5_hex($session{user_email},time(),r
+and(100000));
            $sessionFile     = "$systemRoot/sessions/${sessionID}";
            if (open  FILE, "${sessionFile}.db"){
                close FILE;
                $valid = 0;
            } else {
                $valid = 1;
            }
        } until $valid = 1;        # not necessary -- chances are 1/10
+00000 that we'll have a session id already, but still...
    
    dbmopen %stored, $sessionFile, 0666;
        %stored     =    %session; 
    dbmclose %stored;

    return $sessionID;
}

[download]
this all works fine on my mac osx machine -- where dbmopen files are .db -- but on my debian box, dbmopen creates a .dir and .pag

short of writing for both .db and .dir/.pag can a monk enlighten me?

In reply to dbmopen - if db file do this else do that by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.