From: <buc...@us...> - 2009-01-22 16:11:44
|
Revision: 117 http://devmon.svn.sourceforge.net/devmon/?rev=117&view=rev Author: buchanmilne Date: 2009-01-22 16:11:37 +0000 (Thu, 22 Jan 2009) Log Message: ----------- Handle line continuations in bb-hosts file (W.J.M. Nelis) Modified Paths: -------------- trunk/modules/dm_config.pm Modified: trunk/modules/dm_config.pm =================================================================== --- trunk/modules/dm_config.pm 2009-01-09 16:09:24 UTC (rev 116) +++ trunk/modules/dm_config.pm 2009-01-22 16:11:37 UTC (rev 117) @@ -1265,9 +1265,14 @@ } # Now interate through our file and suck out the juicy bits - FILELINE: for my $line (<BBFILE>) { + FILELINE: while ( my $line= <BBFILE> ) { chomp $line; + while ( $line=~ s/\\$// and ! eof(BBFILE) ) { + $line.= <BBFILE> ; # Merge with next line + chomp $line ; + } # of while + # First see if this is an include statement if($line =~ /^\s*(?:disp|net)?include\s+(.+)$/i) { my $file = $1; @@ -1391,8 +1396,8 @@ ++$hosts_left; } } - close BBFILE; } + close BBFILE; } while @bbfiles; # End of do {} loop This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |