clean up some cr/lf code

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 413c9aa1ed940ca82b4ccc59f12c7ed997b09e80..1f3a40dc067bb56ac1fb7cb049555cff49a3a796 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1783,17 +1783,17 @@ sub set_line_separator {
             my $test = $1;
 
             # dos
-            if ( $test =~ /^($CRLF)+$/ ) {
+            if ( $test =~ /^($CRLF)+\z/ ) {
                 $input_line_separator = $CRLF;
             }
 
             # mac
-            elsif ( $test =~ /^($CR)+$/ && $test !~ /$LF/ ) {
+            elsif ( $test =~ /^($CR)+\z/ ) {
                 $input_line_separator = $CR;
             }
 
             # unix
-            elsif ( $test =~ /^($LF)+$/ && $test !~ /$CR/ ) {
+            elsif ( $test =~ /^($LF)+\z/ ) {
                 $input_line_separator = $LF;
             }