diff options
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
| -rw-r--r-- | lib/OpenSLX/Utils.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 22e2ebbc..9d8b4599 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -33,6 +33,7 @@ $VERSION = 1.01; mergeHash getFQDN readPassword + hostIs64Bit ); ################################################################################ @@ -318,4 +319,10 @@ sub readPassword return $term->readline($prompt); } +sub hostIs64Bit +{ + my $arch = qx{uname -m}; + return $arch =~ m[64]; +} + 1; |