diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-08-14 14:16:40 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-08-14 18:35:00 +0100 |
commit | 43f1531a64965e10262a79b4be473e0417da9da6 (patch) | |
tree | 75a9671a2e681bfd555011d09befe97aa9537e15 /dgit | |
parent | 0806f3412f73bbfe32f0f57504c3fff200247a0a (diff) |
Use defvalopt scalar ref (no overall functional change)
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -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; |