home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Perl / RPC / perl_113_riscpc / !Perl / !Boot next >
Encoding:
Text File  |  1999-04-17  |  2.3 KB  |  63 lines
  1. | Perl Boot File
  2. | 1.5.95 - L.T.
  3. | Added paths 1997.7.2  NWC
  4. | open(WHATEVER,'<PerlLib$Dir>' . '/somemod.pm') in the modules is doomed to
  5. | failure...
  6. | Only modify Run$Path once  1997.11.7 NWC
  7. | Defensive version which should sit happily in !Boot.Resources 1998.5.23 NWC
  8.  
  9. | Auto-generated for version 1.13 on 1999:3:17:14:19:3 GMT
  10.  
  11. If "<Perl$Path>" = "" Then Set Run$Path <Run$Path>,<Obey$Dir>.
  12.  
  13. Set Perl$Dir <Obey$Dir>
  14. Set Perl$Path <Obey$Dir>.
  15.  
  16. | Basically, there's more than 77 items in the top level lib directory :-(
  17. Set PerlPrivLib$Path <Perl$Dir>.lib.,<Perl$Dir>.more-lib.
  18. Set PerlArchLib$Path <Perl$Dir>.riscos.
  19. Set PerlSiteLib$Path <Perl$Dir>.lib.site_perl.
  20. Set PerlScript$Path <Perl$Dir>.scripts.
  21.  
  22. Set File$Type_102 Perl
  23. IconSprites <Perl$Dir>.!Sprites
  24.  
  25. RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
  26. RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 Error CallASWI is needed to run perl
  27.  
  28. | Load a resolver if possible
  29. If "<Alias$InetLoadResolver>" <> "" Then InetLoadResolver
  30. Set Perl$Heap Unset this to disable dynamic areas
  31.  
  32. | Defend against being put in resources and hence Wimp$ScrapDir being unset
  33. | when !Boot is run.
  34.  
  35. | If !Scrap has not been seen, set the run type for perl scripts to call !Run
  36. | Hopefully by then !Scrap will have been seen, and at that point !Run will call
  37. | !Boot to set variables appropriately
  38.  
  39. Set Alias$@RunType_102 /<Perl$Dir>.!Run %%*0
  40. If "<Wimp$ScrapDir>" = "" Then Obey
  41.  
  42. Set PerlP$Path <Wimp$ScrapDir>.
  43. If "<UnixFS$/tmp>"  = "" Then Set UnixFS$/tmp  <Wimp$ScrapDir>
  44. If "<UnixFS$/pipe>" = "" Then Set UnixFS$/pipe <Wimp$ScrapDir>
  45.  
  46. Set Alias$@RunType_102 WimpSlot 1024K|m /<Perl$Dir>.Perl %%*0
  47.  
  48. Set Alias$@; /@.%%*0
  49. Set Alias$PerlTemp <Obey$Dir>.CounterHex Perl$pcnt <Perl$pcnt>
  50. PerlTemp
  51. Unset Alias$PerlTemp
  52.  
  53. | New for 1.07. No munging of pm,pl,ix,al
  54. | Dynaloader will come unstuck if .pm .ro .bs are not distinct files, mind you
  55.  
  56. | Taskwindow version
  57. | Set Alias$@RunType_102 Taskwindow |"<Perl$Dir>.Perl %%*0|" -wimpslot 2048k -name "Perl 5.005" -display -quit
  58.  
  59. | Don't you dare put any stuff in here about innoculating against the
  60. | extend virus. Install VProtect, get yourself a decent virus scanner and use
  61. | it, rather than relying on a bodge that stops on particular virus whilst
  62. | leaving you exposed to all the rest.
  63.