From 179e568b34203f622bdd83b1289ac8389abc8853 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 8 Mar 2010 23:22:05 -0500
Subject: [PATCH] move version number to separate variable

---
 msva-perl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/msva-perl b/msva-perl
index 3ace79f..ad8faaa 100755
--- a/msva-perl
+++ b/msva-perl
@@ -34,6 +34,8 @@ use strict;
   use JSON;
   use POSIX qw(strftime);
 
+  my $version = '0.1';
+
   my %dispatch = (
                   '/' => { handler => \&noop,
                            methods => { 'GET' => 1 },
@@ -125,7 +127,7 @@ use strict;
     my $cgi = shift;
     return '200 OK', { available => JSON::true,
                        protoversion => 1,
-                       server => "MSVA-Perl 0.1" };
+                       server => "MSVA-Perl ".$version };
   }
 
   # returns an empty list if bad key found.
-- 
2.26.2