--- a/clean_package_dirs.pl	Mon Jul 20 18:53:56 2009 +0100
+++ b/clean_package_dirs.pl	Tue Jul 21 12:52:36 2009 +0100
@@ -40,7 +40,7 @@
 	
 	#print "--- $sDir\n";
 	
-	if ( $sDir =~ /^([^.]+)\.(\d+)/ )
+	if ( $sDir =~ /^([^.]+)\.T?(\d+)/ )
 	{
 		my $sBaseName = $1;
 		my $sBuildNumber = $2;