chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0806f34
)
Use defvalopt scalar ref (no overall functional change)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 14 Aug 2015 13:16:40 +0000
(14:16 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 14 Aug 2015 17:35:00 +0000
(18:35 +0100)
dgit
patch
|
blob
|
history
diff --git
a/dgit
b/dgit
index d4193ccd2e8d8df7da4d5c5460a57ea45176ca24..b9982bbbefb656f36a578595a3752cedd7145e09 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-3122,11
+3122,9
@@
sub defvalopt ($$$$) {
# or $how can be a scalar ref, meaning simply assign the value
}
# 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;
sub parseopts () {
my $om;