diff options
author | Oliver Tappe | 2007-07-02 22:26:29 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-02 22:26:29 +0200 |
commit | e8555b0c941af3702a7873a230ade1af18b5aae6 (patch) | |
tree | 96f66fe1a98d00acd9fab4df2aae67a0e0e3e215 /lib/OpenSLX/Utils.pm | |
parent | * minor fix, wrong action type passed to initialize() (diff) | |
download | core-e8555b0c941af3702a7873a230ade1af18b5aae6.tar.gz core-e8555b0c941af3702a7873a230ade1af18b5aae6.tar.xz core-e8555b0c941af3702a7873a230ade1af18b5aae6.zip |
* moved checkFlags() from Utils to Basics and used it there (in
InstantiateClass())
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1218 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
-rw-r--r-- | lib/OpenSLX/Utils.pm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 4d11e702..207edb98 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -82,20 +82,6 @@ sub linkFile return; } -sub checkFlags -{ - my $flags = shift || confess 'need to pass in flags-hashref!'; - my $knownFlags = shift || confess 'need to pass in knownFlags-arrayref!'; - - my %known; - @known{@$knownFlags} = (); - foreach my $flag (keys %$flags) { - next if exists $known{$flag}; - cluck("flag '$flag' not known!"); - } - return; -} - sub slurpFile { my $fileName = shift || confess 'need to pass in fileName!'; |