[perl #54144] [PATCH] Trivial: pdd_format.t -- stop complaining about long $Id: $ lines

[via RT]

# New Ticket Created by  Geoffrey Broadwell 
# Please include the string:  [perl #54144]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54144 >


Attached is a two line patch so that t/codingstd/pdd_format.t won't
complain about long $Id: $ lines in PDDs.


-'f


=== t/codingstd/pdd_format.t
==================================================================
--- t/codingstd/pdd_format.t	(revision 5166)
+++ t/codingstd/pdd_format.t	(local)
@@ -68,6 +68,8 @@
             ( length( $lines[$i] ) > 78 )
             and
             ( $lines[$i] !~ m/^(?:L?<)?http/ ) 
+            and
+            ( $lines[$i] !~ m/\$Id: / )
         ) {
             push @toolong, ($i + 1);
         }