From baf965da099e1e036c4ce34cc439606b86de5789 Mon Sep 17 00:00:00 2001
From: Axel Beckert <abe@deuxchevaux.org>
Date: Thu, 15 Jul 2010 18:50:02 +0200
Subject: [PATCH] Stay backwards compatible and still allow -s and -m

---
 bin/xt-guess-suite-and-mirror | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/bin/xt-guess-suite-and-mirror b/bin/xt-guess-suite-and-mirror
index 525b798..1ef33b3 100755
--- a/bin/xt-guess-suite-and-mirror
+++ b/bin/xt-guess-suite-and-mirror
@@ -92,11 +92,11 @@ my $want_version = 0;
 my $want_help    = 0;
 my $want_manual  = 0;
 
-my $result = GetOptions( 'mirror'  => \$want_mirror,
-                         'suite'   => \$want_suite,
-                         'version' => \$want_version,
-                         'manual'  => \$want_manual,
-                         'help'    => \$want_help );
+my $result = GetOptions( 'mirror|m' => \$want_mirror,
+                         'suite|s'  => \$want_suite,
+                         'version'  => \$want_version,
+                         'manual'   => \$want_manual,
+                         'help'     => \$want_help );
 
 if ($want_help) {
     pod2usage(0);