Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
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 { | sub combine_evss { | ||
my ($evss1, | my ($evss1, | ||
- | my $binary1 = pack " | + | |
- | my $binary2 = pack " | + | my $binary1 = pack " |
- | my $binary = $binary1 | $binary2; # bitwise or | + | my $binary2 = pack " |
- | return unpack " | + | my $binary = $binary1 | $binary2; # bitwise or |
+ | return unpack " | ||
+ | } elsif (defined($evss1)) { | ||
+ | return $evss1; | ||
+ | } else { | ||
+ | return $evss2; | ||
+ | } | ||
} | } | ||
Line 264: | Line 270: | ||
the same as consulting perldoc mergebufrtemp.pl | the same as consulting perldoc mergebufrtemp.pl | ||
- | Options may be abbreviated, | + | Options may be abbreviated, |
To avoid having to use the C< | To avoid having to use the C< |