From 7faba4584f360df4c2c12f52bb1784c08c0dca57 Mon Sep 17 00:00:00 2001
From: spider-mario <spidermario@free.fr>
Date: Sat, 28 Jul 2012 14:25:53 +0200
Subject: Avoid making ponysaylinklist.pl depend on List::MoreUtils.

---
 ponysaylinklist.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'ponysaylinklist.pl')

diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index 4d34928..bb3a631 100755
--- a/ponysaylinklist.pl
+++ b/ponysaylinklist.pl
@@ -12,19 +12,19 @@
 use strict;
 use warnings;
 use utf8;
-use List::MoreUtils qw(natatime);
 
 my %hash;
 
-my $it = natatime 2, @ARGV;
-while (my ($source, $target) = &$it) {
-	unless ($source eq $target) {
-		push @{$hash{$target}}, $source;
+{
+	local @ARGV = @ARGV;
+	while ((my ($source, $target), @ARGV) = @ARGV) {
+		unless ($source eq $target) {
+			push @{$hash{$target}}, $source;
+		}
 	}
 }
 
-$it = natatime 2, @ARGV;
-while (my ($source, $target) = &$it) {
+while ((my ($source, $target), @ARGV) = @ARGV) {
 	if ($source eq $target) {
 		my @list = @{$hash{$source} // []};
 		print $source;
-- 
cgit