From 97e35f92ccfc5e3b39854671714b5db93dd07073 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 24 Jun 2012 17:58:54 -0700
Subject: [PATCH] diag.t: Tolerate trailing space

---
 t/porting/diag.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 7ac6d60..5701141 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -79,7 +79,7 @@ my $severity_re = qr/ . (?: \| . )* /x; # A severity is a single char, but can
                                         # be of the form 'S|P|W'
 while (<$diagfh>) {
   if (m/^=item (.*)/) {
-    $cur_entry = $1;
+    $cur_entry = $1 =~ s/\s+\z//r;
 
     if (exists $entries{$cur_entry}) {
         TODO: {
@@ -542,7 +542,6 @@ Usage: VMS::Filespec::vmsrealpath(spec)
 Use of inherited AUTOLOAD for non-method %s::%s() is deprecated
 utf8 "\x%X" does not map to Unicode
 Value of logical "%s" too long. Truncating to %i bytes
-Verb pattern '%s' may not have an argument in regex; marked by <-- HERE in m/%s/
 waitpid: process %x is not a child of process %x
 Wide character
 Wide character in $/
-- 
1.8.3.1