Return to sanitycheck.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
version 1.18, 2006/09/28 02:15:06 | version 1.19, 2006/09/28 02:27:37 |
---|---|
Line 192 my $sbug=0; | Line 192 my $sbug=0; |
while (my $line = <IN>) { | while (my $line = <IN>) { |
if ($line =~ /\S/) { | if ($line =~ /\S/) { |
$rbug=1 if $line=~/\r/; | $rbug=1 if $line=~/\r/; |
if ($line =~ /\W/) { | if ($line =~ /\W.*\n/) { |
$dbug=$line if ($line !~/\w:(?:primary|default)$/); | $dbug=$line if ($line !~/\w:(?:primary|default)$/); |
} | } |
$dbug=$line if $line=~/\_/; | $dbug=$line if $line=~/\_/; |