summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b2f7664)
- regex '[^\s;]+' is not matched - '[^ ;]+' needed there
use File::Touch; # &touch
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);
HERE
use File::Touch; # &touch
use POSIX qw(WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG);
HERE
- eval "$_\n; 1;" or push @missing,(/^\s*use\s+([^\s;]+)/)[0];
+ eval "$_\n; 1;" or push @missing,(/^\s*use\s+([^ ;]+)/)[0];
}
die "You are missing some modules - install them by:\n"
."\tperl -MCPAN -e 'install qw(".join(" ",@missing).")'\n"
}
die "You are missing some modules - install them by:\n"
."\tperl -MCPAN -e 'install qw(".join(" ",@missing).")'\n"