packages: pldnotify.awk - make urls unique in perl already, 1m win for medi...

[glen]

Author: glen                         Date: Tue Oct  5 11:09:55 2010 GMT
Module: packages                      Tag: HEAD
---- Log message:
- make urls unique in perl already, 1m win for media info

---- Files affected:
packages:
   pldnotify.awk (1.94 -> 1.95) 

---- Diffs:

================================================================
Index: packages/pldnotify.awk
diff -u packages/pldnotify.awk:1.94 packages/pldnotify.awk:1.95
--- packages/pldnotify.awk:1.94	Tue Oct  5 13:02:36 2010
+++ packages/pldnotify.awk	Tue Oct  5 13:09:50 2010
@@ -200,10 +200,14 @@
 	my $content = join q//, <>; \
 	my $root = new HTML::TreeBuilder; \
 	$root->parse($content); \
-	my $links_r = $root->extract_links(); \
 	\
+	my %links = (); \
 	for (@{$root->extract_links(qw(a iframe))}) { \
 		my($link, $element, $attr, $tag) = @$_; \
+		$links{$link} = $tag; \
+	} \
+	\
+	while (my($link, $tag) = each %links) { \
 		print $tag, q/ /, $link, $/; \
 	} \
 	' " tmpfile
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/pldnotify.awk?r1=1.94&r2=1.95&f=u