Perl-5.6.0 compatibility: &Cwd::fastgetcwd -> &Cwd::cwd

diff --git a/bin/exx b/bin/exx
index 15e7832..88933d0 100755 (executable)
--- a/bin/exx
+++ b/bin/exx
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use IO::Handle;
-use Cwd qw(chdir fastgetcwd);
+use Cwd qw(chdir cwd);
 
 use constant FORMATS=>{
        "rpm"=>'rpm2cpio !|cpio -id --quiet',   #-v #FIXME: --sparse doesn't work, why?
@@ -19,7 +19,7 @@ use constant FORMATS=>{
 die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."
                if !@ARGV;
 
-my $origdir=fastgetcwd;
+my $origdir=cwd;
 for my $fname (@ARGV) {
        $fname=~m#([^/]+)([.=])(\L[^./]+\E)$# or die "Extension not found for archive: $fname";
        my($path,$base,$ext)=($`,$1,$3);