minor optimization

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 1e7e8bf8fc9d40f8e3de905b9cbf83a1e6e352be..d960c9fcba5c16e625854700882b4049781c818d 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -429,7 +429,7 @@ sub valign_input {
     $is_outdented = 0 if $is_hanging_side_comment;
 
     # Identify a block comment.
-    my $is_block_comment = ( $jmax == 0 && $rfields->[0] =~ /^#/ );
+    my $is_block_comment = $jmax == 0 && substr( $rfields->[0], 0, 1 ) eq '#';
 
     # Block comment .. update count
     if ($is_block_comment) {