X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fe18a095e7ff2e4ee435479a0256b68ea5b1ec8b..6bcca55b7cefe569c6a05e82b5de2d1eb712c866:/Porting/thirdclean

diff --git a/Porting/thirdclean b/Porting/thirdclean
index c45de15..8f1d3f8 100644
--- a/Porting/thirdclean
+++ b/Porting/thirdclean
@@ -1,3 +1,12 @@
+#!./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>;
 
@@ -28,7 +37,7 @@ $leak[ 0] =~ s/.* were found:\n\n//m; # Snip off totals.
 # 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;