# from David Golden
# on Friday 21 November 2008 20:21:
> my $files = $self->rscan_dir($dir);
>- Archive::Tar->create_archive("$file.tar.gz", 1, @$files);
>+ my $tar = Archive::Tar->new;
>+ $tar->add_files( @$files );
>+ for my $f ( $tar->get_files ) {
>+ $f->mode( $f->mode & ~022 ); # chmod go-w
>+ }
>+ $tar->write( "$file.tar.gz", 1 );
That looks right. What was the deal about the directories in the RT
ticket?
> http://rt.cpan.org/Ticket/Display.html?id=39804
Thanks,
Eric
--
The first rule about Debian is you don't talk about Debian
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
