--- rep-rebuild_orig	2006-12-01 09:52:30.000000000 +0100
+++ rep-rebuild	2006-12-01 09:54:58.000000000 +0100
@@ -10,6 +10,7 @@
 use strict;
 
 use Getopt::Long qw(:config pass_through);
+use PortageXS;
 
 use Term::ANSIColor;
 
@@ -46,6 +47,8 @@
 $EARGV =~ s/\s+$//;
 $EARGV =~ s/\s+/ /g;
 
+my $pxs=PortageXS->new();
+
 print color 'reset';
 print "Usage: $0 [OPTIONS] [--] [EMERGE_OPTIONS]
 
@@ -72,7 +75,7 @@
 
 my %progs = ();
 
-my @progNames = split(/\n/,`eix -I |grep -B2 'Installed.*:.*9999' |grep -e '^*' -e '\\[I\\]' |awk '{print \$2}'`);
+my @progNames = $pxs->searchInstalledPackage();
 
 foreach my $progName (@progNames)
 {