Mirrors/ponysay
2
0
Fork 0
mirror of https://github.com/erkin/ponysay synced 2024-11-28 06:10:34 +00: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 warnings;
use utf8;
use List::MoreUtils qw(natatime);
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) {
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;