From mayhem to normality.

gistfile1.txt

--- /usr/bin/echangelog 2014-11-02 17:34:41.730843075 +0100
+++ echangelog  2014-11-02 22:10:13.524146598 +0100
@@ -108,17 +108,14 @@
        exit 0;
 }
 
-sub getenv($) {
+sub getenv ($) {
     my $key = shift;
+    my $env = $ENV{$key};
 
-    # Ensure our variable exist
-    if ( defined($ENV{$key}) ) {
-        # Ensure we don't get empty variables
-        if ( length($ENV{$key}) > 0 ) {
-            return $ENV{$key};
-        }
-    }
-    return;
+    # Ensure the variable has been set 
+    # as an environment variable,
+    # checks for its lenghts and returns it
+    return $env if $env and (length($env) > 0);
 }