home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / RomModules < prev    next >
Text File  |  1998-07-14  |  218b  |  14 lines
  1. #!perl -wl
  2. # Version 0.01
  3. use RISCOS::ROMModule;
  4.  
  5. @rommods = rommodules;
  6.  
  7. foreach $mod (@rommods)
  8. {
  9.     print $mod->Line();
  10.  
  11. }
  12.  
  13. # Or the oneliner
  14. # perl -MRISCOS::ROMModule -le 'foreach (rommodules) {print $_->Line()}'