From aef36ea3f34172c62cfa67b1f3809b2873f79b3f Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 17 Feb 2011 22:50:49 -0700
Subject: [PATCH] diag.t: Allow underscore in warnings categories

A new category is being created with an underscore in it.
---
 t/porting/diag.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/porting/diag.t b/t/porting/diag.t
index cc93874..a3f6272 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -70,7 +70,7 @@ my $cur_entry;
 open my $diagfh, "<", $pod
   or die "Can't open $pod: $!";
 
-my $category_re = qr/ [a-z0-9]+?/;      # Note: requires an initial space
+my $category_re = qr/ [a-z0-9_]+?/;      # Note: requires an initial space
 my $severity_re = qr/ . (?: \| . )* /x; # A severity is a single char, but can
                                         # be of the form 'S|P|W'
 while (<$diagfh>) {
-- 
2.7.4