diff options
| -rw-r--r-- | ChangeLog | 11 | ||||
| -rw-r--r-- | modules/Driver.pm | 7 | ||||
| -rwxr-xr-x | mpc.pl | 2 | ||||
| -rwxr-xr-x | mwc.pl | 2 |
4 files changed, 15 insertions, 7 deletions
@@ -1,3 +1,14 @@ +Tue May 30 12:21:54 UTC 2006 Chad Elliott <elliott_c@ociweb.com> + + * modules/Driver.pm: + + Removed the run-time check for the minimum perl version. + + * mpc.pl: + * mwc.pl: + + Added a load-time check for the minimum perl version (5.6). + Tue May 23 16:49:22 2006 Steve Huston <shuston@riverace.com> * modules/AutomakeProjectCreator.pm (fill_value): If an include diff --git a/modules/Driver.pm b/modules/Driver.pm index 2ab52f56..a576f9d3 100644 --- a/modules/Driver.pm +++ b/modules/Driver.pm @@ -26,7 +26,6 @@ use vars qw(@ISA); my($index) = 0; my(@progress) = ('|', '/', '-', '\\'); my($cmdenv) = 'MPC_COMMANDLINE'; -my($minperl) = 5.006; # ************************************************************ # Subroutine Section @@ -118,12 +117,6 @@ sub run { my($self) = shift; my(@args) = @_; - ## If the minimum version of perl is not met, then it is an error - if ($] < $minperl) { - $self->error("Perl version $minperl is required."); - return 1; - } - ## Dynamically load in each perl module and set up ## the type tags and project creators my($creators) = $self->{'creators'}; @@ -12,6 +12,8 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' # Pragma Section # ****************************************************************** +require 5.006; + use strict; use Config; use FindBin; @@ -12,6 +12,8 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' # Pragma Section # ****************************************************************** +require 5.006; + use strict; use Config; use FindBin; |