home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
!Boot
next >
Wrap
Text File
|
1999-04-17
|
2KB
|
63 lines
| 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.13 on 1999:3:17:14:19:3 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.