home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / !Boot next >
Text File  |  1999-04-17  |  3KB  |  72 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:6 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. Unset Perl$Heap
  31. | Set this to enable dynamic areas - you really need to know why you are doing
  32. | this (which probably means you are Justin Fletcher) as attempting to use
  33. | dynamic areas with this dynamically linked perl will crash perl if any attempt
  34. | is made to load a dynamic module (eg Socket.pm)
  35.  
  36. | Defend against being put in resources and hence Wimp$ScrapDir being unset
  37. | when !Boot is run.
  38.  
  39. | If !Scrap has not been seen, set the run type for perl scripts to call !Run
  40. | Hopefully by then !Scrap will have been seen, and at that point !Run will call
  41. | !Boot to set variables appropriately
  42.  
  43. Set Alias$@RunType_102 /<Perl$Dir>.!Run %%*0
  44. If "<Wimp$ScrapDir>" = "" Then Obey
  45.  
  46. Set PerlP$Path <Wimp$ScrapDir>.
  47. If "<UnixFS$/tmp>"  = "" Then Set UnixFS$/tmp  <Wimp$ScrapDir>
  48. If "<UnixFS$/pipe>" = "" Then Set UnixFS$/pipe <Wimp$ScrapDir>
  49.  
  50. Set Alias$@RunType_102 WimpSlot 1024K|m /<Perl$Dir>.Perl %%*0
  51.  
  52. Set Alias$@; /@.%%*0
  53. Set Alias$PerlTemp <Obey$Dir>.CounterHex Perl$pcnt <Perl$pcnt>
  54. PerlTemp
  55. Unset Alias$PerlTemp
  56.  
  57. | New for 1.07. No munging of pm,pl,ix,al
  58. | Dynaloader will come unstuck if .pm .ro .bs are not distinct files, mind you
  59. | Need to keep dynamic linking separate, to avoid clash between SDBM_File/pm and
  60. | SDBM_File/ro on a 10 character filing system.
  61. | After about 2 hours head banging discover that also need to ensure that
  62. | SDBM_File.bs and SDBM_File.ro and SDBM_File.pm must not clash. Hence bs:ro:
  63. Set UnixFS$sfix bs:ro:f:for:F:fpp:cc:cxx:cpp:c++:C:ii:rpo:ads:adb:ada:c:m:h:i:s:S:ali:adc:xrb:xrs:l:o:p:pas:ph:gpi:y
  64.  
  65. | Taskwindow version
  66. | Set Alias$@RunType_102 Taskwindow |"<Perl$Dir>.Perl %%*0|" -wimpslot 2048k -name "Perl 5.005" -display -quit
  67.  
  68. | Don't you dare put any stuff in here about innoculating against the
  69. | extend virus. Install VProtect, get yourself a decent virus scanner and use
  70. | it, rather than relying on a bodge that stops on particular virus whilst
  71. | leaving you exposed to all the rest.
  72.