]> git.donarmstrong.com Git - perltidy.git/commitdiff
remove unused code
authorSteve Hancock <perltidy@users.sourceforge.net>
Mon, 6 Feb 2023 17:05:38 +0000 (09:05 -0800)
committerSteve Hancock <perltidy@users.sourceforge.net>
Mon, 6 Feb 2023 17:05:38 +0000 (09:05 -0800)
lib/Perl/Tidy/LineSource.pm

index 3c089a09fba64d43cca9b1e8cda60cd6847273d2..7a9dbd502b1c61458c35033f0b7dfcb2099f40b3 100644 (file)
@@ -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;
 }