Varusage.SkipNewShared not implemented correctly

Project:Prolint Issue Tracker
Component:Rules
Category:bug report
Priority:normal
Assigned:Unassigned
Status:active
Description

In the query using the SkipNewShared it is used in the wrong way, resulting in wrong results when SkipNewShared is no.
The code:

tt_object.newshared <> SkipNewShared

should be changed to:

(not tt_object.newshared or not SkipNewShared)