PonyMirrors/ponysay
1
0
Fork 0
mirror of https://github.com/erkin/ponysay.git synced 2025-01-31 10:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity

Avoid making ponysaylinklist.pl depend on List::MoreUtils.

Browse source
This commit is contained in:
spider-mario 2012-07-28 14:25:53 +02:00
parent a42fe1fd4e
commit 7faba4584f
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ponysaylinklist.pl
View file

@ -12,19 +12,19 @@
use strict; use strict;
use warnings; use warnings;
use utf8; use utf8;
use List::MoreUtils qw(natatime);
my %hash; my %hash;
my $it = natatime 2, @ARGV; {
while (my ($source, $target) = &$it) { local @ARGV = @ARGV;
while ((my ($source, $target), @ARGV) = @ARGV) {
unless ($source eq $target) { unless ($source eq $target) {
push @{$hash{$target}}, $source; push @{$hash{$target}}, $source;
} }
} }
}
$it = natatime 2, @ARGV; while ((my ($source, $target), @ARGV) = @ARGV) {
while (my ($source, $target) = &$it) {
if ($source eq $target) { if ($source eq $target) {
my @list = @{$hash{$source} // []}; my @list = @{$hash{$source} // []};
print $source; print $source;