Warn about old perl versions, which have broken __PACKAGE__

diff --git a/WebminCore.pm b/WebminCore.pm
index a59ebc2..427d13c 100644 (file)
--- a/WebminCore.pm
+++ b/WebminCore.pm
@@ -29,6 +29,9 @@ push(@EXPORT, qw($config_directory $var_directory $remote_error_handler %month_t
 # Functions defined in themes
 push(@EXPORT, qw(&theme_post_save_domain &theme_post_save_domains &theme_post_save_server &theme_select_server &theme_select_domain &theme_post_save_folder &theme_post_change_modules));
 
+if ($] <= 5.008004) {
+       print STDERR "WARNING: Webmin needs Perl version 5.008004 or later!\n";
+       }
 require "web-lib.pl";
 require "ui-lib.pl";