diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ssic.pl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/ssic.pl b/src/ssic.pl index db7a39f..e5fa2be 100644 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -112,11 +112,19 @@ sub compile error(4, "Input and output files are equal\n"); } - if (not open($input_fh, "<", $input)) { - error(4, "%s: %s\n", $input, $!); + if ($input eq "-") { + $input_fh = *STDIN; + } else { + if (not open($input_fh, "<", $input)) { + error(4, "%s: %s\n", $input, $!); + } } - if (not open($output_fh, ">", $output)) { - error(4, "%s: %s\n", $output, $!); + if ($output eq "-") { + $output_fh = *STDOUT; + } else { + if (not open($output_fh, ">", $output)) { + error(4, "%s: %s\n", $output, $!); + } } %ENV = ( |