projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Umleitung der Ansprechpersonensuche (im MenĂ¼V3-Header) gefixt
[kivitendo-erp.git]
/
SL
/
Inifile.pm
diff --git
a/SL/Inifile.pm
b/SL/Inifile.pm
index
2331ca7
..
43689d1
100644
(file)
--- a/
SL/Inifile.pm
+++ b/
SL/Inifile.pm
@@
-37,8
+37,10
@@
package Inifile;
use IO::File;
use IO::File;
+use strict;
+
sub new {
sub new {
- $main::lxdebug->enter_sub();
+ $main::lxdebug->enter_sub(
2
);
my ($type, $file, %options) = @_;
my ($type, $file, %options) = @_;
@@
-49,7
+51,7
@@
sub new {
my $self = { "FILE" => $file };
my $self = { "FILE" => $file };
- open FH, "$file" or
F
orm->error("$file : $!");
+ open FH, "$file" or
$::f
orm->error("$file : $!");
while (<FH>) {
chomp;
while (<FH>) {
chomp;
@@
-88,7
+90,7
@@
sub new {
}
close FH;
}
close FH;
- $main::lxdebug->leave_sub();
+ $main::lxdebug->leave_sub(
2
);
return bless $self, $type;
}
return bless $self, $type;
}
@@
-99,7
+101,7
@@
sub write {
my ($self) = @_;
my $file = $self->{FILE};
my ($self) = @_;
my $file = $self->{FILE};
- my $fh = IO::File->new($file, "w") ||
F
orm->error("$file : $!");
+ my $fh = IO::File->new($file, "w") ||
$::f
orm->error("$file : $!");
foreach my $section_name (sort keys %{ $self }) {
next if $section_name =~ m/^[A-Z]+$/;
foreach my $section_name (sort keys %{ $self }) {
next if $section_name =~ m/^[A-Z]+$/;
@@
-116,4
+118,3
@@
sub write {
}
1;
}
1;
-