OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	10/21/2019 03:49:15 PM	rwxr-xr-x
📄 AnyDBM_File.pm	2.56 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 App	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Archive	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Attribute	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 AutoLoader.pm	5.36 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 AutoSplit.pm	19.18 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 B	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Benchmark.pm	30.3 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 CORE.pod	3.11 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 CPAN	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 CPAN.pm	138.12 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Carp	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Carp.pm	19.68 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Class	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Compress	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Config	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 DB.pm	18.48 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 DBM_Filter	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 DBM_Filter.pm	14.05 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Devel	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Digest	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Digest.pm	10.45 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 DirHandle.pm	1.52 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Dumpvalue.pm	17.14 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Encode	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 English.pm	4.65 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Env.pm	5.39 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Exporter	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Exporter.pm	2.31 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 ExtUtils	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Fatal.pm	56.91 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 File	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 FileCache.pm	5.44 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 FileHandle.pm	2.06 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Filter	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 FindBin.pm	4.45 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Getopt	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 HTTP	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 I18N	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 IO	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 IPC	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Internals.pod	2.52 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 JSON	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Locale	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Math	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Memoize	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Memoize.pm	35.34 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Module	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 NEXT.pm	18.4 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Net	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Params	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Parse	-	10/21/2019 03:49:15 PM	rwxr-xr-x
📁 Perl	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 PerlIO	-	10/21/2019 03:49:15 PM	rwxr-xr-x
📄 PerlIO.pm	10.21 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Pod	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Safe.pm	24.49 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Search	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 SelectSaver.pm	344 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 SelfLoader.pm	17.28 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Symbol.pm	2.05 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 TAP	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Term	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Test	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Test.pm	29.35 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Test2	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Test2.pm	6.24 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Text	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Thread	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 Thread.pm	8.09 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Tie	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 Time	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 UNIVERSAL.pm	6.44 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 Unicode	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📁 User	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 XSLoader.pm	3.83 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 _charnames.pm	32.39 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 autodie	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 autodie.pm	12.58 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 autouse.pm	4.14 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 base.pm	8.72 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 bigint.pm	22.85 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 bignum.pm	20.64 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 bigrat.pm	15.78 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 blib.pm	2.04 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 bytes.pm	447 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 bytes_heavy.pl	758 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 charnames.pm	20.38 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 constant.pm	5.6 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 deprecate.pm	3.43 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 diagnostics.pm	18.59 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 dumpvar.pl	15.19 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 encoding	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 experimental.pm	5.66 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 feature.pm	4.39 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 fields.pm	4.9 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 filetest.pm	3.91 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 if.pm	3.26 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 integer.pm	172 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 less.pm	3.13 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 locale.pm	3.34 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 meta_notation.pm	2.07 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 ok.pm	967 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 open.pm	7.83 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 overload	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 overload.pm	4.34 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 overloading.pm	964 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 parent.pm	478 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 perl5db.pl	309.01 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 perlfaq.pm	78 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📁 pod	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 sigtrap.pm	7.43 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 sort.pm	5.94 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 strict.pm	1.57 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 subs.pm	848 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📁 unicore	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 utf8.pm	342 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 utf8_heavy.pl	30.87 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 vars.pm	1.12 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 version	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 version.pm	1.67 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 version.pod	9.63 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 vmsish.pm	4.21 KB	05/23/2023 05:17:19 PM	rw-r--r--
📁 warnings	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 warnings.pm	21.44 KB	05/23/2023 05:17:19 PM	rw-r--r--

Name

Size

Modified

Perms

📁 ..

10/21/2019 03:49:15 PM

rwxr-xr-x

📄 AnyDBM_File.pm

2.56 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 App

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Archive

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Attribute

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 AutoLoader.pm

5.36 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 AutoSplit.pm

19.18 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 B

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Benchmark.pm

30.3 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 CORE.pod

3.11 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 CPAN

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 CPAN.pm

138.12 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Carp

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Carp.pm

19.68 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Class

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Compress

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Config

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 DB.pm

18.48 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 DBM_Filter

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 DBM_Filter.pm

14.05 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Devel

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Digest

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Digest.pm

10.45 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 DirHandle.pm

1.52 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 Dumpvalue.pm

17.14 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Encode

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 English.pm

4.65 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 Env.pm

5.39 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Exporter

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Exporter.pm

2.31 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 ExtUtils

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Fatal.pm

56.91 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 File

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 FileCache.pm

5.44 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 FileHandle.pm

2.06 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Filter

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 FindBin.pm

4.45 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Getopt

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 HTTP

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 I18N

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 IO

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 IPC

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Internals.pod

2.52 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 JSON

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Locale

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Math

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Memoize

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Memoize.pm

35.34 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Module

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 NEXT.pm

18.4 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Net

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Params

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Parse

10/21/2019 03:49:15 PM

rwxr-xr-x

📁 Perl

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 PerlIO

10/21/2019 03:49:15 PM

rwxr-xr-x

📄 PerlIO.pm

10.21 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Pod

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Safe.pm

24.49 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Search

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 SelectSaver.pm

344 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 SelfLoader.pm

17.28 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 Symbol.pm

2.05 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 TAP

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Term

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Test

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Test.pm

29.35 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Test2

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Test2.pm

6.24 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Text

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Thread

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 Thread.pm

8.09 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Tie

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 Time

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 UNIVERSAL.pm

6.44 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 Unicode

05/09/2024 07:13:15 AM

rwxr-xr-x

📁 User

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 XSLoader.pm

3.83 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 _charnames.pm

32.39 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 autodie

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 autodie.pm

12.58 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 autouse.pm

4.14 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 base.pm

8.72 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 bigint.pm

22.85 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 bignum.pm

20.64 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 bigrat.pm

15.78 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 blib.pm

2.04 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 bytes.pm

447 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 bytes_heavy.pl

758 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 charnames.pm

20.38 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 constant.pm

5.6 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 deprecate.pm

3.43 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 diagnostics.pm

18.59 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 dumpvar.pl

15.19 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 encoding

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 experimental.pm

5.66 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 feature.pm

4.39 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 fields.pm

4.9 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 filetest.pm

3.91 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 if.pm

3.26 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 integer.pm

172 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 less.pm

3.13 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 locale.pm

3.34 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 meta_notation.pm

2.07 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 ok.pm

967 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 open.pm

7.83 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 overload

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 overload.pm

4.34 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 overloading.pm

964 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 parent.pm

478 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 perl5db.pl

309.01 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 perlfaq.pm

78 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📁 pod

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 sigtrap.pm

7.43 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 sort.pm

5.94 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 strict.pm

1.57 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 subs.pm

848 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📁 unicore

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 utf8.pm

342 bytes

05/23/2023 05:17:19 PM

rw-r--r--

📄 utf8_heavy.pl

30.87 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 vars.pm

1.12 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 version

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 version.pm

1.67 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 version.pod

9.63 KB

05/23/2023 05:17:19 PM

rw-r--r--

📄 vmsish.pm

4.21 KB

05/23/2023 05:17:19 PM

rw-r--r--

📁 warnings

05/09/2024 07:13:15 AM

rwxr-xr-x

📄 warnings.pm

21.44 KB

05/23/2023 05:17:19 PM

rw-r--r--

Editing: AutoLoader.pm

package AutoLoader;

use strict;
use 5.006_001;

our($VERSION, $AUTOLOAD);

my $is_dosish;
my $is_epoc;
my $is_vms;
my $is_macos;

BEGIN {
    $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare';
    $is_epoc = $^O eq 'epoc';
    $is_vms = $^O eq 'VMS';
    $is_macos = $^O eq 'MacOS';
    $VERSION = '5.74';
}

AUTOLOAD {
    my $sub = $AUTOLOAD;
    autoload_sub($sub);
    goto &$sub;
}

sub autoload_sub {
    my $sub = shift;

my $filename = AutoLoader::find_filename( $sub );

my $save = $@;
    local $!; # Do not munge the value. 
    eval { local $SIG{__DIE__}; require $filename };
    if ($@) {
	if (substr($sub,-9) eq '::DESTROY') {
	    no strict 'refs';
	    *$sub = sub {};
	    $@ = undef;
	} elsif ($@ =~ /^Can't locate/) {
	    # The load might just have failed because the filename was too
	    # long for some old SVR3 systems which treat long names as errors.
	    # If we can successfully truncate a long name then it's worth a go.
	    # There is a slight risk that we could pick up the wrong file here
	    # but autosplit should have warned about that when splitting.
	    if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
		eval { local $SIG{__DIE__}; require $filename };
	    }
	}
	if ($@){
	    $@ =~ s/ at .*\n//;
	    my $error = $@;
	    require Carp;
	    Carp::croak($error);
	}
    }
    $@ = $save;

return 1;
}

sub find_filename {
    my $sub = shift;
    my $filename;
    # Braces used to preserve $1 et al.
    {
	# Try to find the autoloaded file from the package-qualified
	# name of the sub. e.g., if the sub needed is
	# Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is
	# something like '/usr/lib/perl5/Getopt/Long.pm', and the
	# autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'.
	#
	# However, if @INC is a relative path, this might not work.  If,
	# for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is
	# 'lib/Getopt/Long.pm', and we want to require
	# 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib').
	# In this case, we simple prepend the 'auto/' and let the
	# C<require> take care of the searching for us.

my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/);
	$pkg =~ s#::#/#g;
	if (defined($filename = $INC{"$pkg.pm"})) {
	    if ($is_macos) {
		$pkg =~ tr#/#:#;
		$filename = undef
		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
	    } else {
		$filename = undef
		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
	    }

# if the file exists, then make sure that it is a
	    # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
	    # or './lib/auto/foo/bar.al'.  This avoids C<require> searching
	    # (and failing) to find the 'lib/auto/foo/bar.al' because it
	    # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').

if (defined $filename and -r $filename) {
		unless ($filename =~ m|^/|s) {
		    if ($is_dosish) {
			unless ($filename =~ m{^([a-z]:)?[\\/]}is) {
			    if ($^O ne 'NetWare') {
				$filename = "./$filename";
			    } else {
				$filename = "$filename";
			    }
			}
		    }
		    elsif ($is_epoc) {
			unless ($filename =~ m{^([a-z?]:)?[\\/]}is) {
			     $filename = "./$filename";
			}
		    }
		    elsif ($is_vms) {
			# XXX todo by VMSmiths
			$filename = "./$filename";
		    }
		    elsif (!$is_macos) {
			$filename = "./$filename";
		    }
		}
	    }
	    else {
		$filename = undef;
	    }
	}
	unless (defined $filename) {
	    # let C<require> do the searching
	    $filename = "auto/$sub.al";
	    $filename =~ s#::#/#g;
	}
    }
    return $filename;
}

sub import {
    my $pkg = shift;
    my $callpkg = caller;

#
    # Export symbols, but not by accident of inheritance.
    #

if ($pkg eq 'AutoLoader') {
	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) {
	    no strict 'refs';
	    *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
	}
    }

#
    # Try to find the autosplit index file.  Eg., if the call package
    # is POSIX, then $INC{POSIX.pm} is something like
    # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in
    # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that.
    #
    # However, if @INC is a relative path, this might not work.  If,
    # for example, @INC = ('lib'), then
    # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require
    # 'auto/POSIX/autosplit.ix' (without the leading 'lib').
    #

(my $calldir = $callpkg) =~ s#::#/#g;
    my $path = $INC{$calldir . '.pm'};
    if (defined($path)) {
	# Try absolute path name, but only eval it if the
        # transformation from module path to autosplit.ix path
        # succeeded!
	my $replaced_okay;
	if ($is_macos) {
	    (my $malldir = $calldir) =~ tr#/#:#;
	    $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
	} else {
	    $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#);
	}

eval { require $path; } if $replaced_okay;
	# If that failed, try relative path with normal @INC searching.
	if (!$replaced_okay or $@) {
	    $path ="auto/$calldir/autosplit.ix";
	    eval { require $path; };
	}
	if ($@) {
	    my $error = $@;
	    require Carp;
	    Carp::carp($error);
	}
    } 
}

sub unimport {
    my $callpkg = caller;

no strict 'refs';

for my $exported (qw( AUTOLOAD )) {
	my $symname = $callpkg . '::' . $exported;
	undef *{ $symname } if \&{ $symname } == \&{ $exported };
	*{ $symname } = \&{ $symname };
    }
}

__END__