We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 53c6970 commit 8a5a41bCopy full SHA for 8a5a41b
tools/defs2php.pl
@@ -37,9 +37,15 @@ sub proptag
37
38
sub errcode
39
{
40
- my($aliases, $value) = ("$2 $4", $3);
41
- while ($aliases =~ m{\b([A-Z]{2}\w*_[WEX]_\w+)}g) {
42
- print "C($&, $value)\n";
+ my($key, $value) = ($2, $3);
+ my @aliases = "$2 $4" =~ m{\b([A-Z]{2}\w*_[WEX]_\w+)}g;
+ if (scalar(@aliases) == 0 && defined($key) && substr($key, 0, 2) eq "ec") {
43
+ # ec* is the only name available for $value
44
+ print "C($key, $value)\n";
45
+ return;
46
+ }
47
+ for my $a (@aliases) {
48
+ print "C($a, $value)\n";
49
}
50
51
0 commit comments