#!/usr/bin/env perl

# small hack to undo the damage wrought by committing a binary file as
# text to CVS... and opening it on windows..

use strict;
use warnings;

my $filename = shift or die "Usage: $0 [filename]\n";

open(IN, "< $filename") or die "Could not open $filename: $!";
binmode IN;
binmode STDOUT;

my $buf;

while (read(IN, $buf, 8 * 2**10)) {
    $buf =~ s/\r\n/\n/g;
    print $buf;
}

close(IN) or die "Could not close $filename: $!";
exit;