diff options
| author | Stepan Kasal <skasal@redhat.com> | 2009-07-13 10:26:27 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-13 10:26:27 +0200 |
| commit | 9a108c6c20c1d827868f3109953b42df1996efb7 (patch) | |
| tree | cf68a985b398c7d32cc666721f13d92ff59d4ab0 /utils | |
| parent | 03c97657d956dea96e5d0f6153cf59094a55c6b1 (diff) | |
| download | perl-9a108c6c20c1d827868f3109953b42df1996efb7.tar.gz | |
Cosmetic change
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index ada226cf75..8f56db4db8 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -509,8 +509,7 @@ sub expr { s/^\s*\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i; # cheat $new .= " &$id"; } elsif ($isatype{$id}) { - if ($new =~ /{\s*$/ # } for vi - ) { + if ($new =~ /\{\s*$/) { $new .= "'$id'"; } elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) { $new =~ s/\(\s*$//; |