Bugfixing wegen wegfallenden Subversion Tags

diff --git a/bin/get-perl-modules.pl b/bin/get-perl-modules.pl
index 3e289d2491bf00804397b4dac58a8bcd28eb0f51..514f6275387c9bbb36bdc9121badd8c8cc1159c3 100755 (executable)
--- a/bin/get-perl-modules.pl
+++ b/bin/get-perl-modules.pl
@@ -1,8 +1,5 @@
 #!/usr/local/bin/perl
 
-# $Id$
-# $URL$
-
 =head1 NAME
 
 B<get-perl-modules.pl> - Stellt eine Liste aller verfuegbarer Perl-Module zusammen.
@@ -65,11 +62,7 @@ Getopt::Long::Configure('bundling');
 
 $| = 1;
 
-my $Revisn = <<'ENDE';
- $Revision$
-ENDE
-$Revisn =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-our $VERSION = "1.0." . $Revisn;
+our $VERSION = "1.0";
 
 my $module = {};
 

diff --git a/lib/FrBr/Common/MooseX/App.pm b/lib/FrBr/Common/MooseX/App.pm
index acfaa592e0c0adcd438bf6a94994a15c0fcfa694..cb05adca487ffcf835806101090f5f9cbd69f856 100644 (file)
--- a/lib/FrBr/Common/MooseX/App.pm
+++ b/lib/FrBr/Common/MooseX/App.pm
@@ -41,12 +41,7 @@ with 'FrBr::Common::MooseX::Role::CommonOpts';
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1.0"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1.0");
 
 ############################################################################
 
@@ -276,7 +271,7 @@ sub _build_local_timezone {
 
 
 sub _build_version {
-    return $VERSION;
+    return ($VERSION . '');
 }
 
 #############################################################################################

diff --git a/lib/FrBr/Common/MooseX/CommonOpts.pm b/lib/FrBr/Common/MooseX/CommonOpts.pm
index a7216c74125f4aa7cfd015bf7a76c743e32ac8df..72235c903b5c50b3d81098fcaf5436c75e608688 100644 (file)
--- a/lib/FrBr/Common/MooseX/CommonOpts.pm
+++ b/lib/FrBr/Common/MooseX/CommonOpts.pm
@@ -37,12 +37,7 @@ with 'FrBr::Common::MooseX::Types';
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1");
 
 ############################################################################
 
@@ -84,7 +79,7 @@ has 'version' => (
 );
 
 sub _build_version {
-    return $VERSION;
+    return ($VERSION . "");
 }
 
 #---------------------------------------------------------------------------

diff --git a/lib/FrBr/Common/MooseX/Pid.pm b/lib/FrBr/Common/MooseX/Pid.pm
index 5d01e9edc5f3b50383cef29e1cabf91aa04781da..dffabfee30271a2352490d2f80c46d60dd65c6a7 100644 (file)
--- a/lib/FrBr/Common/MooseX/Pid.pm
+++ b/lib/FrBr/Common/MooseX/Pid.pm
@@ -29,12 +29,7 @@ use Moose::Util::TypeConstraints;
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1.0"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1.0");
 
 #-----------------------------------------
 

diff --git a/lib/FrBr/Common/MooseX/Pid/File.pm b/lib/FrBr/Common/MooseX/Pid/File.pm
index 6d9e5fdd8e23e2a402331127f933e60b74c699d1..4c460e568c9bac04ea78727284e64075d31bc0f4 100644 (file)
--- a/lib/FrBr/Common/MooseX/Pid/File.pm
+++ b/lib/FrBr/Common/MooseX/Pid/File.pm
@@ -32,12 +32,7 @@ use Encode qw( decode_utf8 encode_utf8 is_utf8 );
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1.0"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1.0");
 
 #-----------------------------------------
 

diff --git a/lib/FrBr/Common/MooseX/Role/CommonOpts.pm b/lib/FrBr/Common/MooseX/Role/CommonOpts.pm
index 4961f5641c689d9ae1b44ff66d3813e44d1ab88a..17fb1b9732dfd76756081796e10bba492d74b6fe 100644 (file)
--- a/lib/FrBr/Common/MooseX/Role/CommonOpts.pm
+++ b/lib/FrBr/Common/MooseX/Role/CommonOpts.pm
@@ -37,12 +37,7 @@ with 'FrBr::Common::MooseX::Role::Types';
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1");
 
 
 ############################################################################
@@ -79,7 +74,7 @@ has 'version' => (
 );
 
 sub _build_version {
-    return $VERSION;
+    return ($VERSION . "");
 }
 
 #---------------------------------------------------------------------------

diff --git a/lib/FrBr/Common/MooseX/Role/FtpClient.pm b/lib/FrBr/Common/MooseX/Role/FtpClient.pm
index 377419d131c87eaebb2884f0d015d8b5c19f00b6..b58f21f7c08e8217cd71f2a8085cb89d8c69e719 100644 (file)
--- a/lib/FrBr/Common/MooseX/Role/FtpClient.pm
+++ b/lib/FrBr/Common/MooseX/Role/FtpClient.pm
@@ -36,12 +36,7 @@ use Carp qw( cluck );
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.2"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.2");
 
 ############################################################################
 

diff --git a/lib/FrBr/Common/MooseX/Role/WithPidFile.pm b/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
index b8023e5846795007d3006238772c59e17572e9a8..744125ad6c7b17d53fbbf920275ce54424855b02 100644 (file)
--- a/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
+++ b/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
@@ -34,12 +34,7 @@ with 'FrBr::Common::MooseX::Role::Types';
 
 # Versionitis
 
-my $Revis = <<'ENDE';
-    $Revision$
-ENDE
-$Revis =~ s/^.*:\s*(\S+)\s*\$.*/$1/s;
-
-use version; our $VERSION = qv("0.1.0"); $VERSION .= " r" . $Revis;
+use version; our $VERSION = qv("0.1.0");
 
 ############################################################################