1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-13 23:36:08 +00:00
freebsd-ports/devel/p5-IniConf/files/patch-aa
1998-09-10 00:58:33 +00:00

37 lines
1.1 KiB
Plaintext

*** IniConf.pm.orig Fri Jul 11 09:39:59 1997
--- IniConf.pm Thu Sep 10 04:49:00 1998
***************
*** 203,209 ****
\$SIG{$sig} = 'IGNORE';
\$${class}::instance[$instnum]->ReadConfig;
if (\$oldhandler[$instnum] && \$oldhandler[$instnum] ne 'IGNORE') {
! eval '&$oldhandler[$instnum];';
}
\$SIG{$sig} = '$newhandler'
}
--- 203,209 ----
\$SIG{$sig} = 'IGNORE';
\$${class}::instance[$instnum]->ReadConfig;
if (\$oldhandler[$instnum] && \$oldhandler[$instnum] ne 'IGNORE') {
! eval '&\$oldhandler[$instnum];';
}
\$SIG{$sig} = '$newhandler'
}
***************
*** 346,352 ****
$self->{v}{$sect} = {};
}
}
! elsif (($parm, $val) = /\s*(\S+)\s*=\s*(.*)/) { # new parameter
$parm = lc($parm) if $nocase;
$self->{pCMT}{$sect}{$parm} = [@cmts];
@cmts = ( );
--- 346,352 ----
$self->{v}{$sect} = {};
}
}
! elsif (($parm, $val) = /\s*([^\s=]+)\s*=\s*(.*)/) { # new parameter
$parm = lc($parm) if $nocase;
$self->{pCMT}{$sect}{$parm} = [@cmts];
@cmts = ( );