X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FParser%2FDescriptive.pm;fp=lib%2FMooseX%2FGetopt%2FParser%2FDescriptive.pm;h=3e71d346ed0227946d1917e4f49523ff9b8f2d30;hb=05e8fe8973c9305d2a81ee513474cd5f78a0fef3;hp=4688df6a66941aaa51efd5f993d30c8355d63ff6;hpb=053fa19e136de81f8144bd403b5da17c2dbd0c01;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt/Parser/Descriptive.pm b/lib/MooseX/Getopt/Parser/Descriptive.pm
index 4688df6..3e71d34 100644
--- a/lib/MooseX/Getopt/Parser/Descriptive.pm
+++ b/lib/MooseX/Getopt/Parser/Descriptive.pm
@@ -46,7 +46,7 @@ sub build_options {
 	$cmd_flags_to_names{$flag} = $name;
 
         my $opt_string = join '|', $flag, @aliases;
-        $opt_string .= MooseX::Getopt::OptionTypeMap->get_option_type($type);
+        $opt_string .= MooseX::Getopt::OptionTypeMap->get_option_type($type) if $type;
 
         my $doc;
         $doc = $attr->documentation if $attr->has_documentation;