+#!./perl
+
+# DAPM: this description is from the original commit message:
+# this appears to be a HP leak detection thing:
+#
+# Add a script for cleaning out the "known noise"
+# from Third Degree reports: either noise caused
+# by libc itself, or Perl_yyparse leaks.
+
local $/;
$_ = <ARGV>;
# actual length.
@accv = grep { ! /-- rih --.+(?:memmove|strcpy).+moreswitches/s } @accv;
@accv = grep { ! /-- (?:rih|rus) --.+strcpy.+gv_fetchfile/s } @accv;
-@accv = grep { ! /-- rih --.+strcmp.+doopen_pmc/s } @accv;
+@accv = grep { ! /-- rih --.+strcmp.+doopen_pm/s } @accv;
@accv = grep { ! /-- rih --.+strcmp.+gv_fetchpv/s } @accv;
@accv = grep { ! /-- r[ui]h --.+strcmp.+gv_fetchmeth/s } @accv;
@accv = grep { ! /-- rih --.+memmove.+my_setenv/s } @accv;