typo

p4raw-id: //depot/perl@4909

diff --git a/Porting/p4desc b/Porting/p4desc
index 27f44f6..0bf79da 100755 (executable)
--- 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$/;