home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / RPC / !Perl / scripts / RmSave < prev    next >
Text File  |  1998-07-14  |  422b  |  20 lines
  1. #!perl -w
  2. # Version 0.01
  3. use RISCOS::Module 'rm_grab';
  4. use RISCOS::Filespec;
  5. use RISCOS::File 'settype';
  6. use strict;
  7. die "Syntax $0: <from> [<to>]\n" unless @ARGV == 1 or @ARGV == 2;
  8.  
  9. my ($grab, $save) = @ARGV;
  10. $save = $grab unless defined $save;
  11. my $mod = rm_grab $grab;
  12.  
  13. die "Could not grab '$grab'" unless defined $mod;
  14.  
  15. open MOD, ">$save" or die "Couldn't open '$save': $!";
  16.  
  17. print MOD $mod;
  18.  
  19. settype 'Module', $save;
  20.