From: Russ Allbery <eagle@eyrie.org>
Date: Sun, 6 Nov 2016 23:36:45 +0000 (-0800)
Subject: Fix misuse of Readonly in make-c-data
X-Git-Tag: release/3.1~20
X-Git-Url: https://git.eyrie.org/?a=commitdiff_plain;h=5b044b2b071ac5a2690cd73ff3281a1ca4975c15;p=kerberos%2Fkrb5-strength.git

Fix misuse of Readonly in make-c-data

This script was initializing variables with Readonly via assignment
rather than the fat arrow.  The latter is the correct syntax.
---

diff --git a/tests/data/passwords/make-c-data b/tests/data/passwords/make-c-data
index 57d9e94..471a050 100755
--- a/tests/data/passwords/make-c-data
+++ b/tests/data/passwords/make-c-data
@@ -42,12 +42,12 @@ 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);
+Readonly my @ATTRIBUTES => qw(name principal password code error);
 
 # 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 or C constants.)  Only the keys are of interest.
-Readonly my %IS_LITERAL_ATTRIBUTE = (code => 1);
+Readonly my %IS_LITERAL_ATTRIBUTE => (code => 1);
 
 ##############################################################################
 # Functions