Differences

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

--- bufr.pm:bufrresolve_source [2014-05-28 14:17:57]
pals
+++ bufr.pm:bufrresolve_source [2016-04-18 07:52:19]
pals
@@ Line 2: / Line 2: @@
 #!/usr/bin/perl -w
-# (C) Copyright 2010, met.no
+# (C) Copyright 2010-2016 MET Norway
 #
 # This program is free software; you can redistribute it and/or modify
@@ Line 29: / Line 29: @@
 use constant DEFAULT_TABLE_PATH => '/usr/local/lib/bufrtables';
 # Ought to be your most up-to-date B table
-use constant DEFAULT_TABLE => 'B0000000000000019000';
+use constant DEFAULT_TABLE => 'B0000000000000023000';
 # Parse command line options
@@ Line 37: / Line 37: @@
            \%option,
            'tablepath=s',# Set BUFR table path
-           'code=s',     # Print the content of code table
+           'code=s',     # Print the contents of code table
            'flag=i',     # Resolve the flag value given
            'help',       # Print help information and exit
@@ Line 78: / Line 78: @@
 my $verbose = $option{verbose} ? 1 : 0;
 Geo::BUFR->set_verbose($verbose);
+# From version 1.32 a descriptor sequence ending in e.g. 106000 031001
+# will be allowed unless strict checking is set, and we really want
+# bufrresolve.pl to complain in this case
+Geo::BUFR->set_strict_checking(2);
 # Set BUFR table path
@@ Line 123: / Line 128: @@
 =pod
+=encoding utf8
 =head1 SYNOPSIS
@@ Line 150: / Line 157: @@
 Execute without arguments for Usage, with option C<--help> for some
-additional info. See also L</https://wiki.met.no/bufr.pm/start> for
+additional info. See also L<https://wiki.met.no/bufr.pm/start> for
 examples of use.
@@ Line 203: / Line 210: @@
 =head1 COPYRIGHT
-Copyright (C) 2010 met.no
+Copyright (C) 2010-2016 MET Norway
 =cut
 </code>