Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Brown paper bag

  • Loading branch information...
commit 4dd9a475a36f41c698d5eb63f821b1ea4565bc72 1 parent 231d5f6
@seveas seveas authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/CPAN/Unpack.pm
View
2  lib/CPAN/Unpack.pm
@@ -105,7 +105,7 @@ sub unpack {
my $files = @files;
if ( $files == 1 ) {
my $file = $files[0];
- if ( S_ISDIR( stat("$to/$file") ) ) {
+ if ( S_ISDIR( ( stat( $file ) )[2] ) ) {
rename $file, $want;
} else {
mkdir $want;
Please sign in to comment.
Something went wrong with that request. Please try again.