From ad31580623307f0b715ee0a148d5b2a56b4280ff Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 26 Jan 2000 22:45:28 +0000
Subject: [PATCH] typo

p4raw-id: //depot/perl@4909
---
 Porting/p4desc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Porting/p4desc b/Porting/p4desc
index 27f44f6..0bf79da 100755
--- a/Porting/p4desc
+++ b/Porting/p4desc
@@ -65,7 +65,7 @@ my $cur = m|^Affected files| ... m|^Differences|;
 
 # while we are within range
 if ($cur) {
-    if (m|^\.\.\. (//depot/.+?#\d+) (add|branch)$|) {
+    if (m{^\.\.\. (//depot/.+?#\d+) (add|branch)$}) {
 	my $newfile = $1;
 	push @addfiles, $newfile;
 	warn "$newfile add, revision != 1!\n" unless $newfile =~ /#1$/;
-- 
2.7.4