From: Frank Brehm <frank@brehm-online.com>
Date: Sun, 13 Nov 2011 12:33:02 +0000 (+0100)
Subject: Bugfixing wegen wegfallenden Subversion Tags
X-Git-Url: https://git.uhu-banane.org/?a=commitdiff_plain;h=6f3e7c4955dc96d72fac621eecb797465def518c;p=my-stuff%2Fperl.git

Bugfixing wegen wegfallenden Subversion Tags
---

diff --git a/bin/get-perl-modules.pl b/bin/get-perl-modules.pl
index 3e289d2..514f627 100755
--- 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 acfaa59..cb05adc 100644
--- 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 a7216c7..72235c9 100644
--- 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 5d01e9e..dffabfe 100644
--- 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 6d9e5fd..4c460e5 100644
--- 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 4961f56..17fb1b9 100644
--- 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 377419d..b58f21f 100644
--- 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 b8023e5..744125a 100644
--- 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");
 
 ############################################################################