löschen alter versionen

update_github.pl

@@ -246,7 +246,6 @@ for my $app ( sort keys %$apps  ) {
                         print "entpacke $downloadfolder$dateiname\n";
                         my $err =  $obj->extractTree(undef, "C:\\temp\\github\\$app");    # extract files
                     }
-                    
 
                     my @inhaltnew = read_dir("C:\\temp\\github\\$app");
 
@@ -263,11 +262,18 @@ for my $app ( sort keys %$apps  ) {
                         rmtree "C:\\temp\\github\\$app";
                     }
                     
+                    # alte Versionen löschen
+                    my @inhaltwithnewversion = read_dir("D:\\portable\\$app");
+                    for my $in ( @inhaltwithnewversion ) {
+                        next if $in eq $ver;
+                        if ( -d "D:\\portable\\$app\\$in" ) {
+                            rmtree "D:\\portable\\$app\\$in";
+                        }
+                    }
+
                     unlink($downloadfolder.$dateiname );
                     print "zip datei von $app gelöscht\n";
                 }
-            # } else {
-            #     print "keine neue Version gefunden\n";
             }
             if ($link && -e "D:\\portable\\$app\\$ver\\$link" ) {
                 my $linknew = Win32::Shortcut->new();