- if ( $rOpts->{'format'} eq 'tidy' ) {
- ( $fh, $output_file ) =
- Perl::Tidy::streamhandle( $output_file, 'w', $is_encoded_data );
- unless ($fh) { Perl::Tidy::Die("Cannot write to output stream\n"); }
- $output_file_open = 1;
- }
-
- # in order to check output syntax when standard output is used,
- # or when it is an object, we have to make a copy of the file
- if ( $output_file eq '-' || ref $output_file ) {
- if ( $rOpts->{'check-syntax'} ) {
-
- # Turning off syntax check when standard output is used.
- # The reason is that temporary files cause problems on
- # on many systems.
- $rOpts->{'check-syntax'} = 0;
- ${$rpending_logfile_message} .= <<EOM;
-Note: --syntax check will be skipped because standard output is used
-EOM
-
- }
- }
+ ( $fh, $output_file ) =
+ Perl::Tidy::streamhandle( $output_file, 'w', $is_encoded_data );
+ unless ($fh) { Perl::Tidy::Die("Cannot write to output stream\n"); }
+ $output_file_open = 1;