diff options
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index ee5e120be4..0815bb6762 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -386,7 +386,7 @@ sub _prefix_and_file { my @dirs = File::Spec->splitdir( $dirs ); ### so sometimes the last element is '' -- probably when trailing - ### dir slashes are encountered... this is is of course pointless, + ### dir slashes are encountered... this is of course pointless, ### so remove it pop @dirs while @dirs and not length $dirs[-1]; |