version 1.111, 2003/03/04 22:32:20
|
version 1.112, 2003/03/07 15:04:00
|
Line 1139 sub make_new_child {
|
Line 1139 sub make_new_child {
|
"while attempting get\n"; |
"while attempting get\n"; |
} |
} |
} else { |
} else { |
print $client "error: ".($!+0) |
if ($!+0 == 2) { |
." tie(GDBM) Failed ". |
print $client "error:No such file or ". |
"while attempting get\n"; |
"GDBM reported bad block error\n"; |
|
} else { |
|
print $client "error: ".($!+0) |
|
." tie(GDBM) Failed ". |
|
"while attempting get\n"; |
|
} |
} |
} |
# ------------------------------------------------------------------------ eget |
# ------------------------------------------------------------------------ eget |
} elsif ($userinput =~ /^eget/) { |
} elsif ($userinput =~ /^eget/) { |