[Popcon-commits] cvs commit to popularity-contest by pere

[popcon-commits at lists.alioth.debian.org]

Update of /cvsroot/popcon/popularity-contest
In directory haydn:/tmp/cvs-serv29552

Modified Files:
	popcon-upload 
Log Message:
Typo.


Index: popcon-upload
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon-upload,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- popcon-upload	3 Jul 2005 10:49:57 -0000	1.2
+++ popcon-upload	4 Jul 2005 15:08:35 -0000	1.3
@@ -6,12 +6,13 @@
 use IO::Socket;
 use Getopt::Std;
 
+my %opts;
 getopt("uf", \%opts);
 
 my ($submiturl)  = $opts{'u'} || "http://popcon.debian.org/cgi-bin/popcon.cgi";
 my ($file)  = $opts{'f'} || "-";
 
-($host) = $submiturl =~ m%http://([^/]+)%;
+my ($host) = $submiturl =~ m%http://([^/]+)%;
 
 # Configure the proxy:
 my ($http_proxy,$proxy,$port,$remote);