0
  &   ˆÇÆÅÄÃl–äY>”*h¥8 …p"¸ËJbÑ¿Â0ÁÀ¿  &   ˆÈÇÆÅÄl–Ãa¾”jh¥8 q§îJbÑ¿Ã0ÂÁÀ  +   ˆÉÈÇÆÅÂZƒ›Ù«615_•I|¥‰ÓMdœv ©ƒ&íK<óo¬ÃÂ g    ‹      µ–[o›0Çßû)<¤í-9@nmê01ðT ˆ¦>U$€D "V³îÓÏ\”[Ã²,!qŒÿ>þs|0þ¤N÷Ù"hì:²¦ßtMA\àgGP]µìè¶y€˜âBJ×C€ívÛÞvÚi¶×†®â.lhÍiÛ§>'Ýáüt‡px>{"L#’–øÁ/”. ƒ²4¥G3ˆÓ¹$/ã'åæ*7x–úo¹wáJOl@áÍ
‡¹™I˜†èÕ‹£e2âhºæ¤/Él³~dó†yŸ„=fÁbÄ}UFæãd¤r’é­žtVc0ÌIº·¡h•úÑ"
üZ±SŠèw½CµÔ¨ÁfžEk¥É^
,€Ã@æi¼Y{,’'á0;T•¿&V?ïÛOŸEþâýn™9Éò² ¡H²`NÓì-'­>Ên’ã9Q…“EËrLÜ:¯¼>]y‘UÕ&ŽÃ¾ÆÎ> :æ:y±ßâ{ìF‚8ìuk…B·Ó ±2ÑuÙ%qeÿ'±X+D¢ðÔ q^;JÞÜzG{;¯x/6È«©Ätµïš"»ÚÄ,À_í#¸55º¾ÁÔ0ˆìLmb0Ö‚ú }´è·§Ç}£ÔŽ#ÿ TÌUë$M.1÷Ï¡ž¹Ñ²aLLâÊös‰\5NûÖäz"›²QnÂÜ8³oÆEƒA“¸SƒØšR—vã…õ$¶d‹Øoa}@™C&y]¢kÌr·`Þµ®Üw×¸ßd…sµ*‰sã#’¸ÓîþåO‚þíÕùCqÅPžrÿ &+H    M   	ˆËÊÉÈÇl–Ðz¾”êa,jy@=q—n	¥1hßÆ„]}ÿÅ_‹uÐb&=LV[(a–Ãa¾”jh¥8 q§îJbÑ¿Å ?÷     	package Cwd;
use strict;
use Exporter;


our $VERSION = '3.74';
my $xs_version = $VERSION;
$VERSION =~ tr/_//d;

our @ISA = qw/ Exporter /;
our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
push @EXPORT, qw(getdcwd) if $^O eq 'MSWin32';
our @EXPORT_OK = qw(chdir abs_path fast_abs_path realpath fast_realpath);

# sys_cwd may keep the builtin command

# All the functionality of this module may provided by builtins,
# there is no sense to process the rest of the file.
# The best choice may be to have this in BEGIN, but how to return from BEGIN?

if ($^O eq 'os2') {
    local $^W = 0;

    *cwd                = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
    *getcwd             = \&cwd;
    *fastgetcwd         = \&cwd;
    *fastcwd            = \&cwd;

    *fast_abs_path      = \&sys_abspath if defined &sys_abspath;
    *abs_path           = \&fast_abs_path;
    *realpath           = \&fast_abs_path;
    *fast_realpath      = \&fast_abs_path;

    return 1;
}

# Need to look up the feature settings on VMS.  The preferred way is to use the
# VMS::Feature module, but that may not be available to dual life modules.

my $use_vms_feature;
BEGIN {
    if ($^O eq 'VMS') {
        if (eval { local $SIG{__DIE__};
                   local @INC = @INC;
                   pop @INC if $INC[-1] eq '.';
                   require VMS::Feature; }) {
            $use_vms_feature = 1;
        }
    }
}

# Need to look up the UNIX report mode.  This may become a dynamic mode
# in the future.
sub _vms_unix_rpt {
    my $unix_rpt;
    if ($use_vms_feature) {
        $unix_rpt = VMS::Feature::current("filename_unix_report");
    } else {
        my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
        $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; 
    }
    return $unix_rpt;
}

# Need to look up the EFS character set mode.  This may become a dynamic
# mode in the future.
sub _vms_efs {
    my $efs;
    if ($use_vms_feature) {
        $efs = VMS::Feature::current("efs_charset");
    } else {
        my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
        $efs = $env_efs =~ /^[ET1]/i; 
    }
    return $efs;
}


# If loading the XS stuff doesn't work, we can fall back to pure perl
if(! defined &getcwd && defined &DynaLoader::boot_DynaLoader) { # skipped on miniperl
    require XSLoader;
    XSLoader::load( __PACKAGE__, $xs_version);
}

# Big nasty table of function aliases
my %METHOD_MAP =
  (
   VMS =>
   {
    cwd			=> '_vms_cwd',
    getcwd		=> '_vms_cwd',
    fastcwd		=> '_vms_cwd',
    fastgetcwd		=> '_vms_cwd',
    abs_path		=> '_vms_abs_path',
    fast_abs_path	=> '_vms_abs_path',
   },

   MSWin32 =>
   {
    # We assume that &_NT_cwd is defined as an XSUB or in the core.
    cwd			=> '_NT_cwd',
    getcwd		=> '_NT_cwd',
    fastcwd		=> '_NT_cwd',
    fastgetcwd		=> '_NT_cwd',
    abs_path		=> 'fast_abs_path',
    realpath		=> 'fast_abs_path',
   },

   dos => 
   {
    cwd			=> '_dos_cwd',
    getcwd		=> '_dos_cwd',
    fastgetcwd		=> '_dos_cwd',
    fastcwd		=> '_dos_cwd',
    abs_path		=> 'fast_abs_path',
   },

   # QNX4.  QNX6 has a $os of 'nto'.
   qnx =>
   {
    cwd			=> '_qnx_cwd',
    getcwd		=> '_qnx_cwd',
    fastgetcwd		=> '_qnx_cwd',
    fastcwd		=> '_qnx_cwd',
    abs_path