Skip to content

Commit

Permalink
Merge 92f3cd7 into f212efc
Browse files Browse the repository at this point in the history
  • Loading branch information
tonycoz committed May 18, 2021
2 parents f212efc + 92f3cd7 commit 6932097
Show file tree
Hide file tree
Showing 11 changed files with 18 additions and 18 deletions.
16 changes: 8 additions & 8 deletions dist/PathTools/Cwd.pm
Expand Up @@ -3,7 +3,7 @@ use strict;
use Exporter;


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

Expand Down Expand Up @@ -275,7 +275,7 @@ sub fastcwd_ {
($odev, $oino) = ($cdev, $cino);
CORE::chdir('..') || return undef;
($cdev, $cino) = stat('.');
last if $odev == $cdev && $oino == $cino;
last if $odev == $cdev && $oino eq $cino;
opendir(DIR, '.') || return undef;
for (;;) {
$direntry = readdir(DIR);
Expand All @@ -284,7 +284,7 @@ sub fastcwd_ {
next if $direntry eq '..';

($tdev, $tino) = lstat($direntry);
last unless $tdev != $odev || $tino != $oino;
last unless $tdev != $odev || $tino ne $oino;
}
closedir(DIR);
return undef unless defined $direntry; # should never happen
Expand All @@ -298,7 +298,7 @@ sub fastcwd_ {
&& CORE::chdir($1) or return undef;
($cdev, $cino) = stat('.');
die "Unstable directory path, current directory changed unexpectedly"
if $cdev != $orig_cdev || $cino != $orig_cino;
if $cdev != $orig_cdev || $cino ne $orig_cino;
$path;
}
if (not defined &fastcwd) { *fastcwd = \&fastcwd_ }
Expand All @@ -315,7 +315,7 @@ sub chdir_init {
if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') {
my($dd,$di) = stat('.');
my($pd,$pi) = stat($ENV{'PWD'});
if (!defined $dd or !defined $pd or $di != $pi or $dd != $pd) {
if (!defined $dd or !defined $pd or $di ne $pi or $dd != $pd) {
$ENV{'PWD'} = cwd();
}
}
Expand All @@ -328,7 +328,7 @@ sub chdir_init {
if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s) {
my($pd,$pi) = stat($2);
my($dd,$di) = stat($1);
if (defined $pd and defined $dd and $di == $pi and $dd == $pd) {
if (defined $pd and defined $dd and $di ne $pi and $dd == $pd) {
$ENV{'PWD'}="$2$3";
}
}
Expand Down Expand Up @@ -430,7 +430,7 @@ sub _perl_abs_path
$! = $e;
return undef;
}
if ($pst[0] == $cst[0] && $pst[1] == $cst[1])
if ($pst[0] == $cst[0] && $pst[1] eq $cst[1])
{
$dir = undef;
}
Expand All @@ -448,7 +448,7 @@ sub _perl_abs_path
$tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir"))
}
while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
$tst[1] != $pst[1]);
$tst[1] ne $pst[1]);
}
$cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
closedir(PARENT);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec.pm
Expand Up @@ -2,7 +2,7 @@ package File::Spec;

use strict;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

my %module = (
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/AmigaOS.pm
Expand Up @@ -3,7 +3,7 @@ package File::Spec::AmigaOS;
use strict;
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Cygwin.pm
Expand Up @@ -3,7 +3,7 @@ package File::Spec::Cygwin;
use strict;
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Epoc.pm
Expand Up @@ -2,7 +2,7 @@ package File::Spec::Epoc;

use strict;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

require File::Spec::Unix;
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Functions.pm
Expand Up @@ -3,7 +3,7 @@ package File::Spec::Functions;
use File::Spec;
use strict;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

require Exporter;
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Mac.pm
Expand Up @@ -4,7 +4,7 @@ use strict;
use Cwd ();
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/OS2.pm
Expand Up @@ -4,7 +4,7 @@ use strict;
use Cwd ();
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Unix.pm
Expand Up @@ -3,7 +3,7 @@ package File::Spec::Unix;
use strict;
use Cwd ();

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

=head1 NAME
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/VMS.pm
Expand Up @@ -4,7 +4,7 @@ use strict;
use Cwd ();
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down
2 changes: 1 addition & 1 deletion dist/PathTools/lib/File/Spec/Win32.pm
Expand Up @@ -5,7 +5,7 @@ use strict;
use Cwd ();
require File::Spec::Unix;

our $VERSION = '3.80';
our $VERSION = '3.81';
$VERSION =~ tr/_//d;

our @ISA = qw(File::Spec::Unix);
Expand Down

0 comments on commit 6932097

Please sign in to comment.