diff options
| author | Yves Orton <demerphq@gmail.com> | 2014-09-17 06:57:26 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2014-09-17 06:57:26 +0200 |
| commit | 53e19030564baaa9a7feb874c34dc5c86d50e047 (patch) | |
| tree | 518908873f57f4a8d9bedf05abb75900550ecb2f /regen | |
| parent | 1645b83c5ceecd8a95db0310d80125d8b188eb83 (diff) | |
| download | perl-53e19030564baaa9a7feb874c34dc5c86d50e047.tar.gz | |
only produce diagnostic warnings in regen/regcomp.pl when STDERR is a terminal
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/regcomp.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/regcomp.pl b/regen/regcomp.pl index 538bddefe7..7be623cc6a 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -55,7 +55,8 @@ while (<DESC>) { = split /[,\s]\s*/, $desc; if (!defined $seen_op{$type[$ind]} and !defined $type_alias{$type[$ind]}) { - warn "Regop type '$type[$ind]' from regcomp.sym line $. is not an existing regop, and will be aliased to $name[$ind]\n"; + warn "Regop type '$type[$ind]' from regcomp.sym line $. is not an existing regop, and will be aliased to $name[$ind]\n" + if -t STDERR; $type_alias{$type[$ind]}= $name[$ind]; } |