From 43f1531a64965e10262a79b4be473e0417da9da6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 14 Aug 2015 14:16:40 +0100
Subject: [PATCH] Use defvalopt scalar ref (no overall functional change)

---
 dgit | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/dgit b/dgit
index d4193ccd..b9982bbb 100755
--- a/dgit
+++ b/dgit
@@ -3122,11 +3122,9 @@ sub defvalopt ($$$$) {
     # or $how can be a scalar ref, meaning simply assign the value
 }
 
-defvalopt '--since-version', '-v', '[^_]+|_', sub {
-    ($changes_since_version) = @_;
-};
-defvalopt '--distro', '-d', '.+', sub { ($idistro) = (@_); };
-defvalopt '--existing-package', '', '.*', sub { ($existing_package) = (@_); };
+defvalopt '--since-version', '-v', '[^_]+|_', \$changes_since_version;
+defvalopt '--distro', '-d', '.+', \$idistro;
+defvalopt '--existing-package', '', '.*', \$existing_package;
 
 sub parseopts () {
     my $om;
-- 
2.30.2