#!perl -w
# Version 0.01
use RISCOS::Module 'rm_unsqueeze';
use RISCOS::Filespec;
use RISCOS::File 'settype';
use strict;

die "Syntax $0: <from> <to>\n" unless @ARGV == 2;

undef $/;

open MOD, "<$ARGV[0]" or die "Couldn't open $ARGV[0]: $!";

my $raw = <MOD>;	# Sluuuuurp!

my $cooked = rm_unsqueeze $raw;

die unless $cooked;

open MOD, ">$ARGV[1]" or die "Couldn't open '$ARGV[1]': $!";

print MOD $cooked;

settype 'Module', $ARGV[1];
