Source: devscripts
Version: 2.22.1
Severity: wishlist
Tags: patch

Dear Maintainer,

Please accept the attached patch which adds a -l short option to debsnap
that serves the same function as the existing --list long option.

I believe this patch should be directly `git am`-able as I created it
with `git format-patch`. This is my first time using `git format-patch`
to submit a patch, so if there's anything wrong with the patch, please
let me know. (Then I'll have a reason to use the `-v` option of `git
format-patch` for the first time as well.)

Thanks,

-- 
Plasma
>From 6c04b315752a3a8ba9ca24367355d790dabcd80f Mon Sep 17 00:00:00 2001
From: "David (Plasma) Paul" <davidp...@librem.one>
Date: Mon, 7 Mar 2022 16:41:09 -0600
Subject: [PATCH] debsnap: Add a -l option as the short version of --list.

---
 debian/changelog   | 4 ++++
 scripts/debsnap.1  | 2 +-
 scripts/debsnap.pl | 4 ++--
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 713b9085..b220c546 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -4,6 +4,10 @@ devscripts (2.22.2) UNRELEASED; urgency=medium
   * who-permits-upload:
     + Fix fingerprint lookup, so it actually finds the user id
 
+  [ David Paul ]
+  * debsnap:
+    + Add a -l option as the short version of --list.
+
  -- Mattia Rizzolo <mat...@debian.org>  Sun, 23 Jan 2022 18:04:17 +0100
 
 devscripts (2.22.1) unstable; urgency=medium
diff --git a/scripts/debsnap.1 b/scripts/debsnap.1
index 11fae5b9..7958e9e9 100644
--- a/scripts/debsnap.1
+++ b/scripts/debsnap.1
@@ -45,7 +45,7 @@ Report on the \fBdebsnap\fP configuration being used and progress during the
 download operation.  Please always use this option when reporting bugs.
 
 .TP
-.BR \-\-list
+.BR \-l ", " \-\-list
 Don't download but just list versions.
 
 .TP
diff --git a/scripts/debsnap.pl b/scripts/debsnap.pl
index f687259c..09be5355 100755
--- a/scripts/debsnap.pl
+++ b/scripts/debsnap.pl
@@ -85,7 +85,7 @@ The following options are supported:
                                         Default is ./source-<package name>
     -f, --force                         Force overwriting an existing
                                         destdir
-    --list                              Don't download but just list versions
+    -l, --list                          Don't download but just list versions
     --binary                            Download binary packages instead of
                                         source packages
     -a <architecture>,
@@ -215,7 +215,7 @@ Getopt::Long::Configure('no_ignore_case');
 GetOptions(
     \%opt,    'verbose|v', 'destdir|d=s', 'force|f',
     'help|h', 'version',   'first=s',     'last=s',
-    'list',   'binary',    'architecture|a=s@'
+    'list|l', 'binary',    'architecture|a=s@'
 ) || usage(1);
 
 usage(0)  if $opt{help};
-- 
2.28.0

Reply via email to