X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FAdmin%2FUsage.pm;h=2e0270592e76ca053e7348e954955df35e3755fa;hb=8278b5128660bf9b4d7fb028d47429fcc5a46a99;hp=ce41a563f65641c92e91cc74d81a7a4eda16fc63;hpb=87bf71d54c0e5bd50700d8e3be59b79e9b670012;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Admin/Usage.pm b/lib/DBIx/Class/Admin/Usage.pm index ce41a56..2e02705 100644 --- a/lib/DBIx/Class/Admin/Usage.pm +++ b/lib/DBIx/Class/Admin/Usage.pm @@ -66,7 +66,7 @@ sub pod_option_text { $spec = Getopt::Long::Descriptive->_strip_assignment($spec); $string .= "=item " . join " or ", map { length > 1 ? "B<--$_>" : "B<-$_>" } - split /\|/, $spec; + split /\|/, $spec; $string .= "\n\n$desc\n\n=cut\n\n"; }