> +if ($inline && $diff ne "-") { > + $tmp = `mktemp`; > + if ($? != 0) { > + die "Could not generate temp file"; > + } > > IMHO better use consistent style: system() or ticks with $?.
Or let Perl itself create the temporary file: open(my $tmp_fh, "+>", undef) or die "cannot create temp file: $!"; or something. Or use File::Temp if you have to. Segher