Fix rendering of complex types

rjbs · Jul 12, 2016 · 99a68fc · 99a68fc
1 parent ee8a964
commit 99a68fc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,8 @@
 Revision history for Getopt-Long-Descriptive
 
 {{$NEXT}}
+        - Fix rendering of complex types ('i@' → 'INT...', etc)
+          (thanks, Arthur Axel fREW Schmidt)
 
 0.099     2015-01-23 21:11:09-05:00 America/New_York
         - options that take arguments now indicate the argument's type and

diff --git a/lib/Getopt/Long/Descriptive/Usage.pm b/lib/Getopt/Long/Descriptive/Usage.pm
@@ -193,9 +193,9 @@ sub _parse_assignment {
     }
 
     $argument = substr $assign_spec, 1, 2;
-    if ($argument eq 'i' or $argument eq 'o') {
+    if ($argument =~ m/^i/ or $argument =~ m/^o/) {
         $result = 'INT';
-    } elsif ($argument eq 'f') {
+    } elsif ($argument =~ m/^f/) {
         $result = 'NUM';
     }
     if (length($assign_spec) > 2) {