PonyMirrors/ponysay
1
0
Fork 0
mirror of https://github.com/erkin/ponysay.git synced 2024-11-25 22:07:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #58 from spider-mario/master

Browse source 
Avoid making ponysaylinklist.pl depend on List::MoreUtils.
This commit is contained in:
Mattias Andrée 2012-07-28 05:42:37 -07:00
commit 9de3c3117b
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

@ -13,19 +13,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;