[perl #75820] [PATCH] removed unused code

[Jimmy Zhuo]

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


>From d4912b43c0290b70d7263610e257e3ce32acbf5e Mon Sep 17 00:00:00 2001
From: Jimmy Zhuo <zhuomingli...@yahoo.com.cn>
Date: Thu, 17 Jun 2010 17:18:10 +0800
Subject: [PATCH] removed unused code

---
 src/core/metaops.pm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/src/core/metaops.pm b/src/core/metaops.pm
index 01626d0..6a5a564 100644
--- a/src/core/metaops.pm
+++ b/src/core/metaops.pm
@@ -1,4 +1,4 @@
-our multi sub negate(&op, Mu \$a, Mu \$b) {
+our multi sub negate(&op, Mu \$a, Mu \$b) {
     !(&op($a, $b));
 }
 
@@ -31,7 +31,6 @@ our multi sub crosswith(&op, $lhs, $rhs) {
     gather while ?$lhs-list {
         my $a = $lhs-list.shift;
         for @($rhs-list) -> $b {
-            my $b-copy = $b;
             take &op($a, $b);
         }
     }
-- 
1.6.4.msysgit.0

0001-removed-unused-code.patch
Description: Binary data