diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-10-29 06:00:18 -0800 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-02 18:22:16 +0000 |
| commit | 59ad941d06909cf9027c5fb10edca7d68fc7149b (patch) | |
| tree | 31cbe92fcf6d4df0a555139b93ead70dafd6824d /os2/os2_base.t | |
| parent | df500c58e3444bfdd2437855ea268d802281b50e (diff) | |
| download | perl-59ad941d06909cf9027c5fb10edca7d68fc7149b.tar.gz | |
OS/2 build
Message-ID: <20031029220017.GA26384@math.berkeley.edu>
p4raw-id: //depot/perl@21620
Diffstat (limited to 'os2/os2_base.t')
| -rw-r--r-- | os2/os2_base.t | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/os2/os2_base.t b/os2/os2_base.t index f65a64c532..80181b775e 100644 --- a/os2/os2_base.t +++ b/os2/os2_base.t @@ -32,10 +32,17 @@ $lpe =~ s#\\#/#g; like($lpe, qr/\Q$s_cwd/); -is(uc OS2::DLLname(1), uc $Config{dll_name}); -like(OS2::DLLname, qr#\Q/$Config{dll_name}\E\.dll$#i ); -(my $root_cwd = $s_cwd) =~ s,/t$,,; -like(OS2::DLLname, qr#^\Q$root_cwd\E(/t)?\Q/$Config{dll_name}\E\.dll#i ); +if (uc OS2::DLLname() eq uc $^X) { # Static build + my ($short) = ($^X =~ m,.*[/\\]([^.]+),); + is(uc OS2::DLLname(1), uc $short); + is(uc OS2::DLLname, uc $^X ); # automatically + is(1,1); # automatically... +} else { + is(uc OS2::DLLname(1), uc $Config{dll_name}); + like(OS2::DLLname, qr#\Q/$Config{dll_name}\E\.dll$#i ); + (my $root_cwd = $s_cwd) =~ s,/t$,,; + like(OS2::DLLname, qr#^\Q$root_cwd\E(/t)?\Q/$Config{dll_name}\E\.dll#i ); +} is(OS2::DLLname, OS2::DLLname(2)); like(OS2::DLLname(0), qr#^(\d+)$# ); |