Differences

This shows you the differences between two versions of the page.

--- bufr.pm:mergebufrtemp.pl [2015-02-05 08:11:57]
pals
+++ bufr.pm:mergebufrtemp.pl [2015-02-09 07:37:28]
pals
@@ Line 225: / Line 225: @@
 sub combine_evss {
     my ($evss1,$evss2) = @_;
-    my $binary1 = pack "N", $evss1; # Packed as 32 bits in big-endian order
+    if (defined($evss1) && defined($evss2)) {
-    my $binary2 = pack "N", $evss2;
+	my $binary1 = pack "N", $evss1; # Packed as 32 bits in big-endian order
-    my $binary = $binary1 | $binary2; # bitwise or
+	my $binary2 = pack "N", $evss2;
-    return unpack "N", $binary;
+	my $binary = $binary1 | $binary2; # bitwise or
+	return unpack "N", $binary;
+    } elsif (defined($evss1)) {
+	return $evss1;
+    } else {
+	return $evss2;
+    }
 }