Sophie: perl-File-chdir-0.100.800-3.mga4 noarch

perl-File-chdir-0.100.800-3.mga4.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

use strict;
use warnings;
use File::chdir;

mkdir "foo";

$CWD = "foo"; # now in foo/

mkdir "bar";

{
    local $CWD = "bar";  # now in foo/bar/
}

# back to foo
rmdir "bar";

pop @CWD; # now in original directory

rmdir "foo";