You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
772 B
37 lines
772 B
#!perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
eval {
|
|
unless (Win32::IsWin95()) {
|
|
die "This only works on Windows 9x.\n";
|
|
}
|
|
unless ($ENV{winbootdir}) {
|
|
die "No winbootdir environment variable. Unable to continue.\n";
|
|
}
|
|
|
|
my $autoexec = substr($ENV{winbootdir},0,2) .'\autoexec.bat';
|
|
my $perl = $^X;
|
|
$perl =~ s|\\.?perl.exe$||i;
|
|
|
|
if ($perl =~ /\s/) {
|
|
$perl = "\"$perl\"";
|
|
}
|
|
|
|
if (-e $autoexec && ! -w $autoexec) {
|
|
chmod 0755, $autoexec
|
|
or die "Unable to make $autoexec writable: $!\n";
|
|
}
|
|
|
|
open(F, ">>$autoexec")
|
|
or die "Unable to open $autoexec for writing: $!\n";
|
|
|
|
print F "\nSET PATH=$perl;%PATH%\n";
|
|
close F
|
|
or die "Error closing filehandle: $!\n";
|
|
|
|
};
|
|
|
|
warn $@ if $@;
|
|
|