extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-16 03:10:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

Correct comment; Fix silly bug in copy1()

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5769 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-31 16:08:59 +00:00
parent f962f76828
commit 6b9a2a8e17
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
New/Shorewall/Common.pm
View File

@ -122,7 +122,7 @@ sub emit ( $ ) {
}
#
# Version of emit() that accepts an indefinite number of arguments; each argument will be emitted as a separate line
# Version of emit() that accepts an indefinite number of scalar arguments; each argument will be emitted as a separate line
#
sub emitj {
if ( $object ) {
@ -131,7 +131,7 @@ sub emitj {
#
for ( @_ ) {
unless ( /^\s*$/ ) {
my $line = $_; # This copy is necessary :-(. We modify the value below and we can't modify subroutine arguments.
my $line = $_; #This copy is necessary because the actual arguments are almost always read-only.
$line =~ s/^\n// if $lastlineblank;
$line =~ s/^/$indent/gm if $indent;
$line =~ s/ /\t/g;
@ -239,7 +239,7 @@ sub copy1( $ ) {
my $do_indent = 1;
while ( <IF> ) {
if ( /^\s+$/ ) {
if ( /^\s*$/ ) {
print $object "\n";
$do_indent = 1;
next;