| Perl Boot File
| 1.5.95 - L.T.
| Added paths 1997.7.2  NWC
| open(WHATEVER,'<PerlLib$Dir>' . '/somemod.pm') in the modules is doomed to
| failure...
| Only modify Run$Path once  1997.11.7 NWC
| Defensive version which should sit happily in !Boot.Resources 1998.5.23 NWC

| Auto-generated for version 1.12 on 1999:1:20:11:36:53 GMT

If "<Perl$Path>" = "" Then Set Run$Path <Run$Path>,<Obey$Dir>.

Set Perl$Dir <Obey$Dir>
Set Perl$Path <Obey$Dir>.

| Basically, there's more than 77 items in the top level lib directory :-(
Set PerlPrivLib$Path <Perl$Dir>.lib.,<Perl$Dir>.more-lib.
Set PerlArchLib$Path <Perl$Dir>.riscos.
Set PerlSiteLib$Path <Perl$Dir>.lib.site_perl.
Set PerlScript$Path <Perl$Dir>.scripts.

Set File$Type_102 Perl
IconSprites <Perl$Dir>.!Sprites

RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 Error CallASWI is needed to run perl

| Load a resolver if possible
If "<Alias$InetLoadResolver>" <> "" Then InetLoadResolver
Set Perl$Heap Unset this to disable dynamic areas

| Defend against being put in resources and hence Wimp$ScrapDir being unset
| when !Boot is run.

| If !Scrap has not been seen, set the run type for perl scripts to call !Run
| Hopefully by then !Scrap will have been seen, and at that point !Run will call
| !Boot to set variables appropriately

Set Alias$@RunType_102 /<Perl$Dir>.!Run %%*0
If "<Wimp$ScrapDir>" = "" Then Obey

Set PerlP$Path <Wimp$ScrapDir>.
If "<UnixFS$/tmp>"  = "" Then Set UnixFS$/tmp  <Wimp$ScrapDir>
If "<UnixFS$/pipe>" = "" Then Set UnixFS$/pipe <Wimp$ScrapDir>

Set Alias$@RunType_102 WimpSlot 1024K|m /<Perl$Dir>.Perl %%*0

Set Alias$@; /@.%%*0
Set Alias$PerlTemp <Obey$Dir>.CounterHex Perl$pcnt <Perl$pcnt>
PerlTemp
Unset Alias$PerlTemp

| New for 1.07. No munging of pm,pl,ix,al
| Dynaloader will come unstuck if .pm .ro .bs are not distinct files, mind you

| Taskwindow version
| Set Alias$@RunType_102 Taskwindow |"<Perl$Dir>.Perl %%*0|" -wimpslot 2048k -name "Perl 5.005" -display -quit

| Don't you dare put any stuff in here about innoculating against the
| extend virus. Install VProtect, get yourself a decent virus scanner and use
| it, rather than relying on a bodge that stops on particular virus whilst
| leaving you exposed to all the rest.
