casa-mp-base

--- tardiff.orig    2005-05-17 07:52:27.000000000 -0500

+++ tardiff 2011-09-12 00:40:34.000000000 -0500

@@ -41,7 +41,7 @@

            $opt_modified = 1;

        }elsif(($arg eq "--list") or ($arg eq "-l")){

            $opt_list = 1;

-       }elsif(($arg eq "--autoskip") or ($arg eq "-s")){

+       }elsif(($arg eq "--autoskip") or ($arg eq "-a")){

            $opt_autoskip = 1;

        }elsif(($arg eq "--stats") or ($arg eq "-s")){

            $opt_stats = 1;

@@ -51,7 +51,7 @@

            }elsif(!$tarball2){

                $tarball2 = $arg;

            }else{

-               print "Too much arguments: $arg\n";

+               print "Too many arguments: $arg\n";

                exit 1;

            }

        }

@@ -67,13 +67,13 @@

    my $tarball = shift(@_);

    my $flag = "";

-   if($tarball =~ /\.gz$/){

+   if($tarball =~ /\.t?gz$/){

        $flag = "-z";

-   }elsif($tarball =~ /\.bz2$/){

+   }elsif($tarball =~ /\.t?bz2$/){

        $flag = "-j";

    }

-   my $list = `tar -C $tempdir $flag -xvf $tarball 2>/dev/null`;

+   my $list = `gnutar -C $tempdir $flag -xvf $tarball 2>/dev/null`;

    return $list;

 }