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

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

Update of /cvsroot/popcon/popularity-contest
In directory quantz:/tmp/cvs-serv24471

Modified Files:
	popularity-contest 
Log Message:
Use `dpkg --print-installation-architecture` instead of $Config{archname}.
This give corret result on GNU/Hurd


Index: popularity-contest
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popularity-contest,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- popularity-contest	21 Jan 2004 22:46:42 -0000	1.4
+++ popularity-contest	8 Feb 2004 10:51:55 -0000	1.5
@@ -24,7 +24,6 @@
 
 use strict;
 use 5.6.0;  
-use Config;  
 
 my $dpkg_db="/var/lib/dpkg/info";
 my $popcon_conf="/etc/popularity-contest.conf";
@@ -43,9 +42,8 @@
 }
 
 # Architecture.
-
-my ($arch,$os)=split('-',$Config{archname});
-my $debarch= ($os eq 'linux') ? $arch : "$arch-$os";
+my $debarch = `dpkg --print-installation-architecture`;
+chomp $debarch;
 
 # Fetch debian version number.  Example values are "3.0" and
 # "testing/unstable"