Xu Xiaodong avatar Xu Xiaodong committed cdd65b1

fix bugs

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;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.