view release on metacpan or  search on metacpan

bin/ptar  view on Meta::CPAN

    last if $ARGV[$i] eq '--';
    splice @ARGV, $i--, 1 if $ARGV[$i] eq '--format=ustar';
    splice @ARGV, $i--, 2 if $i < $#ARGV
        && $ARGV[$i] eq '--format' && $ARGV[$i + 1] eq 'ustar';
}

# Allow historic support for dashless bundled options
#  tar cvf file.tar
# is valid (GNU) tar style
@ARGV && $ARGV[0] =~ m/^[DdcvzthxIC]+[fT]?$/ and
    unshift @ARGV, map { "-$_" } split m// => shift @ARGV;
my $opts = {};
getopts('Ddcvzthxf:ICT:', $opts) or die usage();

### show the help message ###
die usage() if $opts->{h};

### enable debugging (undocumented feature)
local $Archive::Tar::DEBUG                  = 1 if $opts->{d};

### enable insecure extracting.