From 7faba4584f360df4c2c12f52bb1784c08c0dca57 Mon Sep 17 00:00:00 2001 From: spider-mario 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(-) 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