Permalink
Browse files

do not misleadingly use two versions, so remove "release version" and…

… onluy keep cpan version
  • Loading branch information...
1 parent 1be085a commit a8d27e956fd7ddc1cf4bdb1b47b3499c1a383e29 @gcottenc gcottenc committed Oct 24, 2012
Showing with 3 additions and 4 deletions.
  1. +1 −1 bin/frozen-bubble
  2. +1 −1 inc/My/Builder.pm
  3. +0 −1 lib/Games/FrozenBubble.pm
  4. +1 −1 lib/Games/FrozenBubble/Net.pm
View
@@ -133,7 +133,7 @@ my ($lang) = split(':', $ENV{LANGUAGE});
gettext_lang($lang);
our $is_rtl = $ENV{LANGUAGE} =~ /^fa/;
-print " [[ Frozen-Bubble-$Games::FrozenBubble::RELEASE_VERSION ]]\n\n";
+print " [[ Frozen-Bubble-$Games::FrozenBubble::VERSION ]]\n\n";
print ' http://www.frozen-bubble.org/
Copyright (c) 2000-2012 The Frozen-Bubble Team.
View
@@ -104,7 +104,7 @@ sub ACTION_server {
# so the -DVERSION macro does not work like in the former Makefile.
# Instead, I'll just preprocess the two files with perl.
{
- my $version = $Games::FrozenBubble::RELEASE_VERSION;
+ my $version = $Games::FrozenBubble::VERSION;
# perl -pie again has problems with shell quoting for the -e'' part.
for my $cfile (
map {catfile($server_directory, $_)} qw(fb-server.c_tmp net.c_tmp)
@@ -1,7 +1,6 @@
package Games::FrozenBubble;
our $VERSION = '2.212'; #Cpan version
-our $RELEASE_VERSION = '2.2.1'; #Distro version
1;
@@ -379,7 +379,7 @@ sub http_download($) {
my $bytes = syswrite($sock, join("\r\n",
"GET $path HTTP/1.0",
"Host: $host:$port",
- "User-Agent: Frozen-Bubble client version $Games::FrozenBubble::RELEASE_VERSION (protocol version $proto_major.$proto_minor) on $sysname/$machine",
+ "User-Agent: Frozen-Bubble client version $Games::FrozenBubble::VERSION (protocol version $proto_major.$proto_minor) on $sysname/$machine",
"", ""));
if (!$bytes) {
close $sock;

0 comments on commit a8d27e9

Please sign in to comment.