use IO::File;
+use strict;
+
sub new {
$main::lxdebug->enter_sub(2);
my $self = { "FILE" => $file };
- open FH, "$file" or Form->error("$file : $!");
+ open FH, "$file" or $::form->error("$file : $!");
while (<FH>) {
chomp;
my ($self) = @_;
my $file = $self->{FILE};
- my $fh = IO::File->new($file, "w") || Form->error("$file : $!");
+ my $fh = IO::File->new($file, "w") || $::form->error("$file : $!");
foreach my $section_name (sort keys %{ $self }) {
next if $section_name =~ m/^[A-Z]+$/;
}
1;
-