diff options
| author | fukachan <fukachan> | 2001-08-21 08:37:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-08-21 08:37:04 +0000 |
| commit | 57341ae46a3ca951dd61fcf28c288e2ecb745c00 (patch) | |
| tree | b4aa9edb9894d865de8680c9c0f41d3e6f6c0416 /fml/lib | |
| parent | 52cdbcfc967625eb2b6ecce6d60a5f8610eb6c47 (diff) | |
| download | fml8-57341ae46a3ca951dd61fcf28c288e2ecb745c00.tar.gz fml8-57341ae46a3ca951dd61fcf28c288e2ecb745c00.tar.bz2 fml8-57341ae46a3ca951dd61fcf28c288e2ecb745c00.zip | |
more debug info
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Tie/JournaledFile.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fml/lib/Tie/JournaledFile.pm b/fml/lib/Tie/JournaledFile.pm index 31947fd3..f7ade087 100644 --- a/fml/lib/Tie/JournaledFile.pm +++ b/fml/lib/Tie/JournaledFile.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: JournaledFile.pm,v 1.7 2001/08/05 13:03:31 fukachan Exp $ +# $FML: JournaledFile.pm,v 1.8 2001/08/21 03:46:39 fukachan Exp $ # package Tie::JournaledFile; @@ -182,14 +182,15 @@ sub NEXTKEY print STDERR " File.NEXTKEY: $key (ignored*)\n" if $debug; return undef; } - # not found + # $key is found else { - print STDERR " File.NEXTKEY: not found\n" if $debug; + print STDERR " File.NEXTKEY: $key found\n" if $debug; return $key; } } # error: file handle is not defined. - else { + else { + print STDERR " File.NEXTKEY: file handle exhauseted" if $debug; return undef; } } |