RT #119949: Correctly concat prefix on directories

When concatenating the prefix & name fields of a tar header, any trailing
slashes in the name would be stripped off.  Re-add the trailing slash for
consistency with other directories in the tarball.

lib/Archive/Tar/File.pm

@@ -486,7 +486,9 @@ sub full_path {
     return $self->name unless defined $self->prefix and length $self->prefix;
 
     ### or otherwise, catfile'd
-    return File::Spec::Unix->catfile( $self->prefix, $self->name );
+    my $path = File::Spec::Unix->catfile( $self->prefix, $self->name );
+    $path .= "/" if $self->name =~ m{/$};   # Re-add trailing slash if necessary, as catfile() strips them off.
+    return $path;
 }
 
 

t/09_roundtrip.t

@@ -225,7 +225,6 @@ SKIP: {
         chop $oldfiles[$i] if $directory_or_not[$i];
       }
 
-      local $TODO = "RT #119949" if $archive_name =~ /prefix-directory-concat/;
       # compare list of files
       is_deeply(
                 [ $new->list_files ],