extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-20 09:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use open_file()/close_file() in copy1

Browse Source
This commit is contained in:
Tom Eastep 2011-01-15 14:33:16 -08:00
parent 978e8e3849
commit 5c4da0b581
1 changed files with 48 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1195,6 +1195,8 @@ sub copy( $ ) {
}
}
sub close_file();
#
# This one handles line continuation and 'here documents'
@ -1204,13 +1206,12 @@ sub copy1( $ ) {
my $result = 0;
if ( $script || $debug ) {
my $file = $_[0];
open IF , $file or fatal_error "Unable to open $file: $!";
my ( $do_indent, $here_documents ) = ( 1, '');
while ( <IF> ) {
open_file( $_[0] );
while ( $currentfile ) {
while ( <$currentfile> ) {
chomp;
if ( /^${here_documents}\s*$/ ) {
@ -1269,7 +1270,8 @@ sub copy1( $ ) {
}
}
close IF;
close_file;
}
}
$lastlineblank = 0;