469 |
# why 5 spaces? GH) |
# why 5 spaces? GH) |
470 |
$value =~ s/\t/ /g; |
$value =~ s/\t/ /g; |
471 |
|
|
472 |
|
# |
473 |
|
# Newlines in the tag values will cause us problems. |
474 |
|
# Strip them. |
475 |
|
# |
476 |
|
$value =~ s/\n//g; |
477 |
|
$value =~ s/\r//g; |
478 |
|
|
479 |
print OUT "\t" . $k . "=" . $value; |
print OUT "\t" . $k . "=" . $value; |
480 |
} |
} |
481 |
print OUT "\n"; |
print OUT "\n"; |
490 |
print OUT "\t" . $k . "="; |
print OUT "\t" . $k . "="; |
491 |
if( length( $value ) > 0 ) { |
if( length( $value ) > 0 ) { |
492 |
$value =~ s/\t/ /g; |
$value =~ s/\t/ /g; |
493 |
|
$value =~ s/\n//g; |
494 |
|
$value =~ s/\r//g; |
495 |
|
|
496 |
print OUT $value; |
print OUT $value; |
497 |
} |
} |
498 |
} |
} |