From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 6 Feb 2023 17:05:38 +0000 (-0800)
Subject: remove unused code
X-Git-Tag: 20230309~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=84c284fcc7ebb1122407454c5dd3080883646fbd;p=perltidy.git

remove unused code
---

diff --git a/lib/Perl/Tidy/LineSource.pm b/lib/Perl/Tidy/LineSource.pm
index 3c089a09..7a9dbd50 100644
--- a/lib/Perl/Tidy/LineSource.pm
+++ b/lib/Perl/Tidy/LineSource.pm
@@ -53,20 +53,14 @@ sub new {
     my $input_file = $args{input_file};
     my $rOpts      = $args{rOpts};
 
-    my $input_line_ending;
-    if ( $rOpts->{'preserve-line-endings'} ) {
-        $input_line_ending = Perl::Tidy::find_input_line_ending($input_file);
-    }
-
     ( my $fh, $input_file ) = Perl::Tidy::streamhandle( $input_file, 'r' );
     return unless $fh;
 
     return bless {
-        _fh                => $fh,
-        _filename          => $input_file,
-        _input_line_ending => $input_line_ending,
-        _rinput_buffer     => [],
-        _started           => 0,
+        _fh            => $fh,
+        _filename      => $input_file,
+        _rinput_buffer => [],
+        _started       => 0,
     }, $class;
 }