From: idl0r <idl0r@gentoo.org>
Date: Tue, 12 May 2009 18:14:43 +0000 (-0000)
Subject: Fix regex, bug 269557, thanks to Samuli Suominen <ssuominen@gentoo.org>.
X-Git-Tag: gentoolkit-dev-0.2.6.12~4
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=13ce0a519afa955ce22d18269038f680ae331999;p=gentoolkit.git

Fix regex, bug 269557, thanks to Samuli Suominen <ssuominen@gentoo.org>.

svn path=/trunk/gentoolkit-dev/; revision=638
---

diff --git a/src/echangelog/echangelog b/src/echangelog/echangelog
index e288650..cd31eb2 100755
--- a/src/echangelog/echangelog
+++ b/src/echangelog/echangelog
@@ -166,6 +166,15 @@ sub update_cat_pn {
 	return $t;
 }
 
+# Just to ensure we don't get duplicate entries.
+sub mypush(\@@) {
+	my $aref = shift;
+
+	foreach my $value (@_) {
+		push(@{$aref}, $value) if !grep(/^\Q$value\E$/, @{$aref});
+	}
+}
+
 GetOptions(
 	'help' => \$opt_help,
 	'strict' => \$opt_strict,
@@ -426,15 +435,6 @@ sub sortfunc($$) {
 	return 0;
 }
 
-# Just to ensure we don't get duplicate entries.
-sub mypush(\@@) {
-	my $aref = shift;
-
-	foreach my $value (@_) {
-		push(@{$aref}, $value) if !grep(/^$value$/, @{$aref});
-	}
-}
-
 # Forget ebuilds that only have changed copyrights, unless that's all
 # the changed files we have
 @ebuilds = grep /\.ebuild$/, @files;