- duplicate

[packages/VMware-server.git] / VMware-server-parse-locations.pl

diff --git a/VMware-server-parse-locations.pl b/VMware-server-parse-locations.pl
index a1263dd2e119442d8e6931c854386b9292d480fe..e149e8ca61e37b157f87dd2272eb1de2c5e3dfd4 100755 (executable)
--- a/VMware-server-parse-locations.pl
+++ b/VMware-server-parse-locations.pl
@@ -1,7 +1,10 @@
 #!/usr/bin/perl -w
 # $Id$
+#
 # process vmware locations database
 # filter the database and keep only single answers not the complete log
+#
+# purpose: cleanup locations db for making it into default rpm config
 
 use strict;
 
@@ -29,13 +32,6 @@ while (my($key, $value) = each %dirs) {
        printf("directory %s\n", $key);
 }
 
-while (my($key, $value) = each %files) {
-       if ($value) {
-               printf("file %s %s\n", $key, $value);
-       } else {
-               printf("file %s\n", $key);
-       }
-}
 while (my($key, $value) = each %files) {
        if ($value) {
                printf("file %s %s\n", $key, $value);