1,4d0
< #
< # Modified for use in MacPerl by Paul Schinder <schinder@pjstoaster.pg.md.us>
< # 4/24/95
< #
39,41c35,36
< #$libloc = ($ENV{'LIBWWW_PERL'} || '.');
< $libloc = ("Macintosh HD:MacPerl scripts:libwww");
< &load_mimetypes("$libloc:mime.types");
---
> $libloc = ($ENV{'LIBWWW_PERL'} || '.');
> &load_mimetypes("$libloc/mime.types");
43,44c38,39
< #$myhome = ($ENV{'HOME'} || $ENV{'home'} || '.');
< #&load_mimetypes("$myhome/.mime.types");
---
> $myhome = ($ENV{'HOME'} || $ENV{'home'} || '.');
> &load_mimetypes("$myhome/.mime.types");