--- 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;
 }