Fix a compatibility problem with Perl 5.10's Getopt

1 files changed, 15 insertions, 0 deletions

diff --git a/databases/mytop/patches/patch-aa b/databases/mytop/patches/patch-aa
new file mode 100644
index 00000000000..d4d9f617f2e
--- /dev/null
+++ b/databases/mytop/patches/patch-aa
@@ -0,0 +1,15 @@
+$NetBSD: patch-aa,v 1.1 2010/05/14 12:12:22 fhajny Exp $
+
+Fix options parsing problem on Perl 5.10.
+
+--- mytop.orig	2007-02-17 04:57:46.000000000 +0000
++++ mytop
+@@ -153,7 +153,7 @@ GetOptions(
+     "idle|i"              => \$config{idle},
+     "resolve|r"           => \$config{resolve},
+     "prompt!"             => \$config{prompt},
+-    "long|!"              => \$config{long_nums},
++    "long!"               => \$config{long_nums},
+     "mode|m=s"            => \$config{mode},
+     "sort=s"              => \$config{sort},
+ );