]> eyrie.org Git - kerberos/krb5-strength.git/blobdiff - tests/data/passwords/make-c-data
Update to rra-c-util 10.5
[kerberos/krb5-strength.git] / tests / data / passwords / make-c-data
index d525c0a998b47647277c2bbcb539bc67cf8d0524..1fd2c548946cb78fd4d7455467a70bba3f11e956 100755 (executable)
@@ -14,18 +14,18 @@ use strict;
 use warnings;
 
 use Carp qw(croak);
+use Const::Fast qw(const);
 use Encode qw(encode);
 use File::Basename qw(basename);
-use JSON;
+use JSON::MaybeXS qw(JSON);
 use Perl6::Slurp qw(slurp);
-use Readonly;
 
 ##############################################################################
 # Global variables
 ##############################################################################
 
 # The header on the generated source file.
-Readonly my $HEADER => <<'END_HEADER';
+const my $HEADER => <<'END_HEADER';
 /*
  * Automatically generated -- do not edit!
  *
@@ -46,16 +46,16 @@ Readonly my $HEADER => <<'END_HEADER';
 END_HEADER
 
 # The list of attributes, in order, whose values go into the C struct.
-Readonly my @ATTRIBUTES => qw(
-  name principal password code error skip_for_system_cracklib
+const my @ATTRIBUTES => qw(
+    name principal password code error skip_for_system_cracklib
 );
 
 # A hash of attributes that should be put in the C struct as they literally
 # appear in the JSON, rather than as strings.  (In other words, attributes
 # that are numbers, booleans, or C constants.)  Only the keys are of interest.
-Readonly my %IS_LITERAL_ATTRIBUTE => (
-    code                     => 1,
-    skip_for_system_cracklib => 1
+const my %IS_LITERAL_ATTRIBUTE => (
+    code => 1,
+    skip_for_system_cracklib => 1,
 );
 
 ##############################################################################
@@ -206,7 +206,7 @@ Russ Allbery <eagle@eyrie.org>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2020 Russ Allbery <eagle@eyrie.org>
+Copyright 2020, 2023 Russ Allbery <eagle@eyrie.org>
 
 Copyright 2013 The Board of Trustees of the Leland Stanford Junior
 University