Fixed part that cleans up files from a replaced package

SRC/snap-0.1/snap

@@ -540,8 +540,7 @@ sub install {
 
 				if ( $file ){
 					$filenum++;
-#					print STDOUT "\e[?16;0;200c\033[K"
-#						. "$file\r";
+
 					print STDOUT "\e[K$file\r";
 					}
 
@@ -584,7 +583,7 @@ sub install {
 	############################################
 
 	if ( -f "$manifest.tmp" ){
-		my $listdata = list( $package );
+		my $listdata = list( $pkgfile );
 
 		open( TMPMANIFEST, "<$manifest.tmp" ) || do{
 			$result{'status'} = 1;