diff options
| author | Thomas White <taw@physics.org> | 2013-02-09 17:56:06 -0800 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2013-02-09 17:56:06 -0800 |
| commit | c32039235d2638b4b96daaf23f50353e7762134b (patch) | |
| tree | 8997b4dbbdb5d0ae54e30ec4046506854bb452cf /scripts | |
| parent | d1952cffb0c0bdaaf9324a3a418fac3873cef486 (diff) | |
scripts/alternate-stream: Fix for new stream format
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/alternate-stream | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/scripts/alternate-stream b/scripts/alternate-stream index 1ac2fd3a..044edb24 100755 --- a/scripts/alternate-stream +++ b/scripts/alternate-stream @@ -9,6 +9,10 @@ open(OFH_TWO, "> ".$ARGV[2]); my $line; my $alt = 0; +my $header = <FH>; +printf(OFH_ONE $header); +printf(OFH_TWO $header); + while ( $line = <FH> ) { if ( $line =~ /^-----\ Begin chunk\ -----$/ ) { |