From b2b212fb324edf619e394c59ff353e4b7a54bafe Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Fri, 4 Jul 2014 15:12:49 +0200
Subject: [PATCH] presunuto do perlCommon.pm
---
src/warden-server/sh/getConfHash.pl | 13 -------------
1 file changed, 13 deletions(-)
delete mode 100755 src/warden-server/sh/getConfHash.pl
diff --git a/src/warden-server/sh/getConfHash.pl b/src/warden-server/sh/getConfHash.pl
deleted file mode 100755
index 06ff948..0000000
--- a/src/warden-server/sh/getConfHash.pl
+++ /dev/null
@@ -1,13 +0,0 @@
-my $hash;
-our %VALID_STRINGS;
-require $ARGV[0];
-
-while (my ($key, $value_ref) = each %VALID_STRINGS) {
- $hash .= " \"$key\" => [\"$value_ref->[0]\"";
- shift($value_ref);
- foreach my $element (@$value_ref) {
- $hash .= ", \"$element\"";
- }
- $hash .= "],\n";
-}
-print $hash;
--
GitLab