|
@@ -2916,7 +2916,7 @@ sub process {
|
|
|
if ($dstat ne '' &&
|
|
|
$dstat !~ /^(?:$Ident|-?$Constant),$/ && # 10, // foo(),
|
|
|
$dstat !~ /^(?:$Ident|-?$Constant);$/ && # foo();
|
|
|
- $dstat !~ /^(?:$Ident|-?$Constant)$/ && # 10 // foo()
|
|
|
+ $dstat !~ /^[!~-]?(?:$Ident|$Constant)$/ && # 10 // foo() // !foo // ~foo // -foo
|
|
|
$dstat !~ /^'X'$/ && # character constants
|
|
|
$dstat !~ /$exceptions/ &&
|
|
|
$dstat !~ /^\.$Ident\s*=/ && # .foo =
|