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 [2022-05-31 09:29:31] (current)
@@ 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;
+    }
 }
@@ Line 264: / Line 270: @@
                     the same as consulting perldoc mergebufrtemp.pl
-Options may be abbreviated, e.g. C<--he> or C<-he> for C<--help>.
+Options may be abbreviated, e.g. C<--h> or C<-h> for C<--help>.
 To avoid having to use the C<--tablepath> option, you are adviced to