diff options
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/Sequence.pm | 10 | ||||
| -rw-r--r-- | fml/lib/File/Utils.pm | 6 |
2 files changed, 8 insertions, 8 deletions
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm index 47bd1bcd..c96d8426 100644 --- a/fml/lib/File/Sequence.pm +++ b/fml/lib/File/Sequence.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: Sequence.pm,v 1.23 2002/04/08 12:44:26 fukachan Exp $ +# $FML: Sequence.pm,v 1.24 2002/07/02 12:51:39 fukachan Exp $ # package File::Sequence; @@ -124,8 +124,8 @@ sub increment_id }; }; - use IO::File::Atomic; - my ($rh, $wh) = IO::File::Atomic->rw_open($seq_file); + use IO::Adapter::AtomicFile; + my ($rh, $wh) = IO::Adapter::AtomicFile->rw_open($seq_file); # read the current sequence number if (defined $rh) { @@ -189,8 +189,8 @@ sub get_id return 0; }; - use IO::File::Atomic; - my ($rh, $wh) = IO::File::Atomic->rw_open($seq_file); + use IO::Adapter::AtomicFile; + my ($rh, $wh) = IO::Adapter::AtomicFile->rw_open($seq_file); # read the current sequence number if (defined $rh) { diff --git a/fml/lib/File/Utils.pm b/fml/lib/File/Utils.pm index 55693dc8..d7bba21b 100644 --- a/fml/lib/File/Utils.pm +++ b/fml/lib/File/Utils.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: Utils.pm,v 1.13 2002/04/24 03:47:51 fukachan Exp $ +# $FML: Utils.pm,v 1.14 2002/07/02 12:52:10 fukachan Exp $ # package File::Utils; @@ -190,7 +190,7 @@ sub search_program =head2 copy($src, $dst) copy C<$src> to C<$dst> in atomic way. -This routine uses C<IO::File::Atomic> module. +This routine uses C<IO::Adapter::AtomicFile> module. =cut @@ -202,7 +202,7 @@ This routine uses C<IO::File::Atomic> module. sub copy { my ($src, $dst) = @_; - my $pkg = 'IO::File::Atomic'; + my $pkg = 'IO::Adapter::AtomicFile'; eval qq{ require $pkg; $pkg->import();}; unless ($@) { |