sync-accounts: Fix perl syntax error. Closes:#865985.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/debian/changelog b/debian/changelog
index f2a3ee38d7da55236d3b879f56a21460b5c476bb..2f8918c6926ebb7ea9b536a2ad9d0b3c6beff6ea 100644 (file)
--- 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 cef131c78b8b7d3aa0e5d7b5a5cdec943a1bdc8d..5348a14470a89b24b81b26f9eda254ed6752c6c7 100755 (executable)
--- 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;