Source

gs / reinstall_driver.pl

#!/usr/bin/env perl
#
# name:      reinstall drivers
# author:    Xu Xiaodong <xxdlhy@gmail.com>
# license:   GPL
# created:   2011 Feb  7
# modified:  2011 Oct 28
#

use strict;
use warnings;

( my $driver = qx(qlist -ICq x11-drivers) ) =~ s!.*/(.*)\n!$1 !g;
system "emerge $driver";