From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 14 Aug 2015 13:16:40 +0000 (+0100)
Subject: Use defvalopt scalar ref (no overall functional change)
X-Git-Tag: debian/1.2~12
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=43f1531a64965e10262a79b4be473e0417da9da6

Use defvalopt scalar ref (no overall functional change)
---

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;