Login
Undoing r2675. Now that the "-color" is no longer being set in _parse_command_line...
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 19 Aug 2008 05:39:41 +0000 (05:39 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 19 Aug 2008 05:39:41 +0000 (05:39 +0000)
bin/perlcritic

index 4f9b2af..41606a6 100755 (executable)
@@ -109,13 +109,7 @@ 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 (-).
     # 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;
-    foreach my $option (keys %opts) {
-        (my $dashed_option = $option) =~ s< \A ([^-]) ><-$1>xms;
-
-        $dashed_opts{$dashed_option} = $opts{$option};
-    }
-
+    my %dashed_opts = map { ( "-$_" => $opts{$_} ) } keys %opts;
     return %dashed_opts;
 }
 
     return %dashed_opts;
 }