* Minor fix to some long lines perl comlained about

[infobot.git] / src / core.pl

diff --git a/src/core.pl b/src/core.pl
index 9efaf417d77b281d0fa338eab57239a142cd2610..936f31cc784ec8aab6fb43951b23f72a67c7cdac 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -78,11 +78,10 @@ $nottime    = 0;
 $notsize       = 0;
 $notcount      = 0;
 ###
-$bot_release   = "1.3.3";
-if ( -d 'CVS' ) {
-    use POSIX qw(strftime);
-    $bot_release       .= strftime(" cvs (%Y%m%d)", gmtime( (stat('CVS'))[9] ) );
-}
+open(VERSION, '<VERSION');
+$bot_release   = <VERSION> || "(unknown version)";
+chomp($bot_release);
+close(VERSION);
 $bot_version   = "infobot $bot_release -- $^O";
 $noreply       = 'NOREPLY';
 
@@ -585,3 +584,5 @@ sub loadConfig {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80