3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.3 2002/11/09 01:27:23 joko |
7 |
|
# + dependency of Class::Tangram now is 1.13 at minimum |
8 |
|
# |
9 |
# Revision 1.2 2002/10/25 11:45:10 joko |
# Revision 1.2 2002/10/25 11:45:10 joko |
10 |
# + enhanced robustness |
# + enhanced robustness |
11 |
# + more logging for debug-levels |
# + more logging for debug-levels |
72 |
my $ctversion = $Class::Tangram::VERSION; |
my $ctversion = $Class::Tangram::VERSION; |
73 |
#print "ctversion: ", $ctversion, "\n"; |
#print "ctversion: ", $ctversion, "\n"; |
74 |
#if ($ctversion ne 1.04) { |
#if ($ctversion ne 1.04) { |
75 |
if ($ctversion ne 1.12) { |
if ($ctversion lt 1.13) { |
76 |
print "Version of \"Class::Tangram\": ", $ctversion, "\n"; |
print "Version of \"Class::Tangram\": ", $ctversion, "\n"; |
77 |
print "absolutely required version: ", "1.12", "\n"; |
print "minimum required version : ", "1.13", "\n"; |
78 |
#print "quitting!!! (please install older version (1.04) of \"Class::Tangram\"", "\n"; |
#print "quitting!!! (please install older version (1.04) of \"Class::Tangram\"", "\n"; |
79 |
exit; |
exit; |
80 |
} |
} |