From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 26 Jan 2000 22:45:28 +0000 (+0000)
Subject: typo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad31580623307f0b715ee0a148d5b2a56b4280ff;p=p5sagit%2Fp5-mst-13.2.git

typo

p4raw-id: //depot/perl@4909
---

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$/;