Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
OS2	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Changes	34.57 KB	-r--r--r--	2014-12-27 11:48
Makefile.SHs	16.44 KB	-r--r--r--	2014-12-27 11:48
diff.configure	0 B	-r--r--r--	2014-12-27 11:48
dl_os2.c	3.9 KB	-r--r--r--	2014-12-27 11:48
dlfcn.h	137 B	-r--r--r--	2014-12-27 11:48
os2.c	142.54 KB	-r--r--r--	2014-12-27 11:49
os2.sym	601 B	-r--r--r--	2014-12-27 11:48
os2_base.t	1.25 KB	-r--r--r--	2014-12-27 11:48
os2_pipe.t	7.31 KB	-r--r--r--	2014-12-27 11:48
os2add.sym	64 B	-r--r--r--	2014-12-27 11:48
os2ish.h	37.64 KB	-r--r--r--	2014-12-27 11:48
os2thread.h	523 B	-r--r--r--	2014-12-27 11:48
perl2cmd.pl	1.5 KB	-r--r--r--	2014-12-27 11:48
perlrexx.c	7.93 KB	-r--r--r--	2014-12-27 11:48
perlrexx.cmd	1.95 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w
BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 19;
use strict;
use Config;

my $cwd = Cwd::sys_cwd();
ok -d $cwd;

my $lpb = Cwd::extLibpath;
$lpb .= ';' unless $lpb and $lpb =~ /;$/;

my $lpe = Cwd::extLibpath(1);
$lpe .= ';' unless $lpe and $lpe =~ /;$/;

ok Cwd::extLibpath_set("$lpb$cwd");

$lpb = Cwd::extLibpath;
$lpb =~ s#\\#/#g;
(my $s_cwd = $cwd) =~ s#\\#/#g;

like($lpb, qr/\Q$s_cwd/);

ok Cwd::extLibpath_set("$lpe$cwd", 1);

$lpe = Cwd::extLibpath(1);
$lpe =~ s#\\#/#g;

like($lpe, qr/\Q$s_cwd/);

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+)$# );

is(OS2::DLLname($_), OS2::DLLname($_, \&Cwd::extLibpath) ) for 0..2;
ok(not defined eval { OS2::DLLname $_, \&Cwd::cwd; 1 } ) for 0..2;
ok(not defined eval { OS2::DLLname $_, \&xxx; 1 } ) for 0..2;