diff options
| author | fukachan <fukachan> | 2005-05-27 03:03:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-05-27 03:03:31 +0000 |
| commit | e6fc837dba963f236db29e3e38d62f215980d428 (patch) | |
| tree | 33f8f9ab40c5862ddaa9e3711edaa8218026ce8b /fml/lib/IO/Adapter/File.pm | |
| parent | 1059e0cd170476595b06d3522d3a7915ae86e3be (diff) | |
| download | fml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.gz fml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.bz2 fml8-e6fc837dba963f236db29e3e38d62f215980d428.zip | |
fix comments (FNF)
Diffstat (limited to 'fml/lib/IO/Adapter/File.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/File.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm index 3df90309..0e319129 100644 --- a/fml/lib/IO/Adapter/File.pm +++ b/fml/lib/IO/Adapter/File.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: File.pm,v 1.59 2004/07/23 15:59:14 fukachan Exp $ +# $FML: File.pm,v 1.60 2004/08/14 05:02:00 fukachan Exp $ # package IO::Adapter::File; @@ -768,6 +768,7 @@ sub sequence_replace if (defined $rh) { my $id = $self->_read_one_word($rh); unless ($new_id == $id) { + # XXX-TODO: need to rollback ? $self->error_set("fail to save id"); } $rh->close(); @@ -809,7 +810,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |