Permalink
Browse files

[web/build.p6] qqx instead of eval and qx

  • Loading branch information...
1 parent 4032784 commit 3e6bfc63107e5a9cb4b7b4c3886e2a7bc525e2ed @sergot committed Jul 20, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 web/build.p6
View
@@ -18,7 +18,7 @@ class Project {
}
method is_fresh() {
- if eval("qx[ cd $.gitname; git log -n 1 --format='%ci' ]") ~~ m/^(\d\d\d\d)\-(\d\d)\-(\d\d)\s+/ {
+ if qqx[ cd $.gitname; git log -n 1 --format='%ci' ] ~~ m/^(\d\d\d\d)\-(\d\d)\-(\d\d)\s+/ {
return True if ((Date.today - Date.new(+$0, +$1, +$2)) <= 90);
}
return False;
@@ -28,7 +28,7 @@ class Project {
my $url = $!URL;
$url ~~ s:g/\//\\\//;
- eval "qx/ git clone $url /";
+ qqx/ git clone $url /;
#$gitname.IO.e ?? eval "qx/ cd $gitname; git pull /" !! eval "qx/ git clone $url /"; too slow
my $item;

0 comments on commit 3e6bfc6

Please sign in to comment.