Login
Change perlcritic to not unconditionally add a "-" to the
authorElliot Shank <perl@galumph.com>
Sun, 17 Aug 2008 10:56:48 +0000 (10:56 +0000)
committerElliot Shank <perl@galumph.com>
Sun, 17 Aug 2008 10:56:48 +0000 (10:56 +0000)
front of options to be passed to Perl::Critic::new() in
response to RT #38458.

bin/perlcritic

index 41606a6..4f9b2af 100755 (executable)
@@ -109,7 +109,13 @@ sub get_options {
     # arguments to most functions.  And to increase legibility,
     # I have also adopted the familiar command-line practice
     # of denoting argument names with a leading dash (-).
-    my %dashed_opts = map { ( "-$_" => $opts{$_} ) } keys %opts;
+    my %dashed_opts;
+    foreach my $option (keys %opts) {
+        (my $dashed_option = $option) =~ s< \A ([^-]) ><-$1>xms;
+
+        $dashed_opts{$dashed_option} = $opts{$option};
+    }
+
     return %dashed_opts;
 }