1Perl::Tidy(3)         User Contributed Perl Documentation        Perl::Tidy(3)
2
3
4
5    ############################################################
6    # This code is not reachable because syntax check is deactivated,
7    # but it is retained for reference.
8    ############################################################
9
10    # We need a named input file for executing perl
11    my ( $stream_filename, $is_tmpfile ) = get_stream_as_named_file($stream);
12
13    # TODO: Need to add name of file to log somewhere
14    # otherwise Perl output is hard to read
15    if ( !$stream_filename ) { return $stream_filename, "" }
16
17    # We have to quote the filename in case it has unusual characters
18    # or spaces.  Example: this filename #CM11.pm# gives trouble.
19    my $quoted_stream_filename = '"' . $stream_filename . '"';
20
21    # Under VMS something like -T will become -t (and an error) so we
22    # will put quotes around the flags.  Double quotes seem to work on
23    # Unix/Windows/VMS, but this may not work on all systems.  (Single
24    # quotes do not work under Windows).  It could become necessary to
25    # put double quotes around each flag, such as:  -"c"  -"T"
26    # We may eventually need some system-dependent coding here.
27    $flags = '"' . $flags . '"';
28
29    # now wish for luck...
30    my $msg = qx/perl $flags $quoted_stream_filename $error_redirection/;
31
32    if ($is_tmpfile) {
33        unlink $stream_filename
34          or Perl::Tidy::Die("couldn't unlink stream $stream_filename: $!\n");
35    }
36    return $stream_filename, $msg;
37}
38

POD ERRORS

40       Hey! The above document had some coding errors, which are explained
41       below:
42
43       Around line 3968:
44           =pod directives shouldn't be over one line long!  Ignoring all 3
45           lines of content
46
47
48
49perl v5.30.0                      2019-09-15                     Perl::Tidy(3)
Impressum