[perl #74796] [PATCH] use replace op instead of concat

[via RT]

# New Ticket Created by  卓明亮 
# Please include the string:  [perl #74796]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=74796 >


This patch use replace op instead of concat


>From a80ebeec2b682382b8ab48641be67e778fe13f90 Mon Sep 17 00:00:00 2001
From: Jimmy Zhuo
Date: Fri, 30 Apr 2010 12:58:20 +0800
Subject: [PATCH] use replace op

---
 src/glue/contextuals.pir |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/src/glue/contextuals.pir b/src/glue/contextuals.pir
index a502270..bcce2c9 100644
--- a/src/glue/contextuals.pir
+++ b/src/glue/contextuals.pir
@@ -8,9 +8,7 @@

     # next, strip twigil and search PROCESS package
     .local string pkgname
-    $S0 = substr name, 0, 1
-    $S1 = substr name, 2
-    pkgname = concat $S0, $S1
+    pkgname = replace name, 1, 1, ''
     $P0 = get_hll_global ['PROCESS'], pkgname
     unless null $P0 goto done
     $P0 = get_global pkgname
-- 
1.6.4.msysgit.0


 在此祝你身体健康，天天快乐
卓明亮



      

0001-use-replace-op.patch
Description: Binary data