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

[chiark-utils.git] / sync-accounts / sync-accounts

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;