From a688f2139abd3a8d5c3dafb725071bc80a162ff1 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 11 Apr 2019 18:05:40 +0100
Subject: [PATCH] sync-accounts: Fix perl syntax error.  Closes:#865985.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 debian/changelog            | 6 ++++++
 sync-accounts/sync-accounts | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index f2a3ee3..2f8918c 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+chiark-utils (6.0.4~iwj1) unstable; urgency=medium
+
+  * sync-accounts: Fix perl syntax error.  Closes:#865985.
+
+ --
+
 chiark-utils (6.0.4~citrix1) unstable; urgency=medium
 
   * fishdescriptor: cast __errno_location correctly
diff --git a/sync-accounts/sync-accounts b/sync-accounts/sync-accounts
index cef131c..5348a14 100755
--- a/sync-accounts/sync-accounts
+++ b/sync-accounts/sync-accounts
@@ -64,7 +64,7 @@ sub fields_fmt ($$) {
     my ($pfx,$fmt) = @_;
     my ($vn);
     $vn= "fields_pw_$fmt";
-    die "unknown format $fmt\n" unless defined @$vn;
+    die "unknown format $fmt\n" unless @$vn;
     fields($pfx,@$vn);
     $vn= "${pfx}_format";
     $$vn= $fmt;
-- 
2.30.2