#!/usr/bin/perl
######################################################################
# untar -- 2004, Mike Schilli <cpan@perlmeister.com>
######################################################################
# Smart tarfile exploder
######################################################################
use strict;
use warnings;

my  $VERSION    = "0.01";
our $CVSVERSION = '$Revision: 1.2 $';

__END__

=head1 NAME

    untar - Smart tar file exploder

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    untar tarfile.tgz

=head1 DESCRIPTION

C<untar> smartly unpacks tar files. Instead of just calling 
C<tar (z)xfv tarfile>, just use C<untar tarfile>, and C<untar> will
take care of

=over 4

=item *

Tar files not containing a single top-level directory, but a plethora
of files and directories instead, which will clutter up the directory
you're unpacking it in. If C<untar> detects that a tarfile doesn't contain
a single top-level directory, it will create one, following the naming
convention of the tarfile.

=item *

Compressed and non-compressed tarfiles

=back

=head1 DEPENDENCIES

C<untar> uses C<Sysadm::Install> from CPAN. Install it before using C<untar>.

=head1 EXAMPLES

  $ untar tarfile.tgz

=head1 LEGALESE

Copyright 2004 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2004, Mike Schilli <cpan@perlmeister.com>