holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Revert change which screwed up ?begin perl ... ?end perl line numbering

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2017-03-14 12:44:33 -07:00
parent c6050f9fbb
commit a447d726fa
No known key found for this signature in database
GPG Key ID: 96E6B3F2423A4D10
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall/Perl/Shorewall/Config.pm
View File

@ -748,7 +748,7 @@ sub initialize( $;$$) {
TC_SCRIPT => '',
EXPORT => 0,
KLUDGEFREE => '',
VERSION => "5.1.1-RC1",
VERSION => "5.1.3",
CAPVERSION => 50100 ,
BLACKLIST_LOG_TAG => '',
RELATED_LOG_TAG => '',
@ -3772,8 +3772,6 @@ sub read_a_line($) {
while ( <$currentfile> ) {
chomp;
$currentlinenumber = $. unless $currentlinenumber;
#
# Handle directives
#
@ -3787,6 +3785,8 @@ sub read_a_line($) {
$directive_callback->( 'OMITTED', $_ ) if ( $directive_callback );
next;
}
$currentlinenumber = $. unless $currentlinenumber;
#
# Suppress leading whitespace in certain continuation lines
#