On some versions of perl get_flash_videos version is not displayed

as constants are evaulated at compile time runtime variables have
no value.

1 files changed, 6 insertions, 5 deletions

diff --git a/get_flash_videos b/get_flash_videos
index be99515..5378883 100755
--- a/get_flash_videos
+++ b/get_flash_videos
@@ -47,8 +47,9 @@ use FlashVideo::VideoPreferences;
 
 unshift @INC, \&plugin_loader;
 
-our $VERSION = "1.25";
-
+use constant CVERSION => "1.25";
+our $VERSION = CVERSION;
+ 
 our %opt;
 BEGIN {
   my $player = "mplayer -really-quiet";
@@ -84,9 +85,9 @@ BEGIN {
   );
 }
 
-use constant VER_INFO => <<EOF;
-get_flash_videos version $VERSION (http://code.google.com/p/get-flash-videos/)
-EOF
+# constant evaluated at compile time, can't use runtime variables.
+use constant VER_INFO => 
+    "get_flash_videos version " . CVERSION . " (http://code.google.com/p/get-flash-videos/)\n";
 
 use constant USAGE => VER_INFO . <<EOF;