Commits

Xu Xiaodong committed cdd65b1

fix bugs

  • Participants
  • Parent commits dccd0e9

Comments (0)

Files changed (5)

 # author:    Xu Xiaodong <xxdlhy@gmail.com>
 # license:   GPL
 # created:   2011 Apr 10
-# modified:  2011 Apr 27
+# modified:  2011 Oct 28
 #
 
-use Modern::Perl;
+use strict;
+use warnings;
+
 use List::Util qw(max);
 use autodie;
 
     my @pkgs;
 
     local $/ = "\n\n";
-    open my $in_fh, '-|', 'emerge', '-av', '--depclean';
+    open my $in_fh, '-|', 'emerge -av --depclean';
     while (<$in_fh>) {
         push @pkgs, $1 if m!/(.*?)-\d.*\s.*\s+\@selected\n\n!;
     }

reinstall_driver.pl

 # author:    Xu Xiaodong <xxdlhy@gmail.com>
 # license:   GPL
 # created:   2011 Feb  7
-# modified:  2011 Apr 13
+# modified:  2011 Oct 28
 #
 
-use Modern::Perl;
+use strict;
+use warnings;
 
 ( my $driver = qx(qlist -ICq x11-drivers) ) =~ s!.*/(.*)\n!$1 !g;
 system "emerge $driver";
 # author:    Xu Xiaodong <xxdlhy@gmail.com>
 # license:   GPL
 # created:   2011 Apr  3
-# modified:  2011 Apr 19
+# modified:  2011 Oct 28
 #
 
-use Modern::Perl;
+use strict;
+use warnings;
+
 use File::Copy;
 use Getopt::Long;
 use autodie;
 # author:    Xu Xiaodong <xxdlhy@gmail.com>
 # license:   GPL
 # created:   2011 Feb  7
-# modified:  2011 Apr 27
+# modified:  2011 Oct 28
 #
 
-use Modern::Perl;
+use strict;
+use warnings;
 
 my $perl = system "emerge -vu perl";
 system "perl-cleaner --reallyall" unless $perl;
 # author:    Xu Xiaodong <xxdlhy@gmail.com>
 # license:   GPL
 # created:   2011 Apr  3
-# modified:  2011 Apr 27
+# modified:  2011 Oct 28
 #
 
-use Modern::Perl;
+use strict;
+use warnings;
+
 use Getopt::Long;
 
 my ( $no_sync, $help ) = (0) x 2;