When applying patch via Porting/apply fails, do p4 refresh

to get old files back.

p4raw-id: //depot/perl@11741

diff --git a/Porting/apply b/Porting/apply
index a0b01cc..c313ee6 100644 (file)
--- a/Porting/apply
+++ b/Porting/apply
@@ -52,7 +52,7 @@ else
  {
   if (@edit)
    {
-    System("p4 revert @edit");
+    System("p4 refresh @edit");
    }
  }