1 | package CFDB; | 1 | package CFDB; |
---|---|---|---|
2 | |||
2 | use Carp; | 3 | use Carp; |
3 | use POSIX qw/strftime/; | 4 | use POSIX qw/strftime/; |
4 | 5 | ||
5 | sub write_file { | 6 | sub write_file { |
6 | my ($file, $cont) = @_; | 7 | my ($file, $cont) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |