[libnet-dbus-perl] 106/335: Remove meaningless $VERSION constants

Intrigeri intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:33 UTC 2015


This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit 753de23e4333dd1c37a458e6386e39338fc9b867
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Sep 12 22:26:31 2005 +0000

    Remove meaningless $VERSION constants
---
 lib/Net/DBus/Binding/Bus.pm                  | 2 --
 lib/Net/DBus/Binding/Connection.pm           | 2 --
 lib/Net/DBus/Binding/Iterator.pm             | 2 --
 lib/Net/DBus/Binding/Message.pm              | 2 --
 lib/Net/DBus/Binding/Message/Error.pm        | 6 +-----
 lib/Net/DBus/Binding/Message/MethodCall.pm   | 6 +-----
 lib/Net/DBus/Binding/Message/MethodReturn.pm | 6 +-----
 lib/Net/DBus/Binding/Message/Signal.pm       | 6 +-----
 lib/Net/DBus/Binding/Server.pm               | 2 --
 lib/Net/DBus/Callback.pm                     | 2 --
 lib/Net/DBus/Object.pm                       | 1 -
 lib/Net/DBus/Reactor.pm                      | 2 --
 12 files changed, 4 insertions(+), 35 deletions(-)

diff --git a/lib/Net/DBus/Binding/Bus.pm b/lib/Net/DBus/Binding/Bus.pm
index 5d6a7f0..48c9376 100644
--- a/lib/Net/DBus/Binding/Bus.pm
+++ b/lib/Net/DBus/Binding/Bus.pm
@@ -9,8 +9,6 @@ use Net::DBus;
 
 use base qw(Net::DBus::Binding::Connection);
 
-our $VERSION = '0.0.1';
-
 sub new {
     my $proto = shift;
     my $class = ref($proto) || $proto;
diff --git a/lib/Net/DBus/Binding/Connection.pm b/lib/Net/DBus/Binding/Connection.pm
index 7d43293..9897920 100644
--- a/lib/Net/DBus/Binding/Connection.pm
+++ b/lib/Net/DBus/Binding/Connection.pm
@@ -59,8 +59,6 @@ use Carp;
 use Net::DBus;
 use Net::DBus::Binding::Message::MethodReturn;
 
-our $VERSION = '0.0.1';
-
 =pod
 
 =item my $con = Net::DBus::Binding::Connection->new(address => "unix:path=/path/to/socket");
diff --git a/lib/Net/DBus/Binding/Iterator.pm b/lib/Net/DBus/Binding/Iterator.pm
index 6536fe5..08d4ecf 100644
--- a/lib/Net/DBus/Binding/Iterator.pm
+++ b/lib/Net/DBus/Binding/Iterator.pm
@@ -55,8 +55,6 @@ use Carp qw(confess);
 
 use Net::DBus;
 
-our $VERSION = '0.0.1';
-
 our $have_quads = 0;
 
 BEGIN {
diff --git a/lib/Net/DBus/Binding/Message.pm b/lib/Net/DBus/Binding/Message.pm
index 77da766..1694b2e 100644
--- a/lib/Net/DBus/Binding/Message.pm
+++ b/lib/Net/DBus/Binding/Message.pm
@@ -45,8 +45,6 @@ use Net::DBus::Binding::Message::MethodCall;
 use Net::DBus::Binding::Message::MethodReturn;
 use Net::DBus::Binding::Message::Error;
 
-our $VERSION = '0.0.1';
-
 sub new {
     my $proto = shift;
     my $class = ref($proto) || $proto;
diff --git a/lib/Net/DBus/Binding/Message/Error.pm b/lib/Net/DBus/Binding/Message/Error.pm
index 699cca3..39c29f3 100644
--- a/lib/Net/DBus/Binding/Message/Error.pm
+++ b/lib/Net/DBus/Binding/Message/Error.pm
@@ -6,11 +6,7 @@ use warnings;
 use Carp;
 
 use Net::DBus;
-use Net::DBus::Binding::Message;
-
-our @ISA = qw(Net::DBus::Binding::Message);
-
-our $VERSION = '0.0.1';
+use base qw(Net::DBus::Binding::Message);
 
 sub new {
     my $proto = shift;
diff --git a/lib/Net/DBus/Binding/Message/MethodCall.pm b/lib/Net/DBus/Binding/Message/MethodCall.pm
index 0da99c9..29deb12 100644
--- a/lib/Net/DBus/Binding/Message/MethodCall.pm
+++ b/lib/Net/DBus/Binding/Message/MethodCall.pm
@@ -6,11 +6,7 @@ use warnings;
 use Carp;
 
 use Net::DBus;
-use Net::DBus::Binding::Message;
-
-our @ISA = qw(Exporter Net::DBus::Binding::Message);
-
-our $VERSION = '0.0.1';
+use base qw(Exporter Net::DBus::Binding::Message);
 
 sub new {
     my $proto = shift;
diff --git a/lib/Net/DBus/Binding/Message/MethodReturn.pm b/lib/Net/DBus/Binding/Message/MethodReturn.pm
index bc770fb..ee86549 100644
--- a/lib/Net/DBus/Binding/Message/MethodReturn.pm
+++ b/lib/Net/DBus/Binding/Message/MethodReturn.pm
@@ -6,11 +6,7 @@ use warnings;
 use Carp;
 
 use Net::DBus;
-use Net::DBus::Binding::Message;
-
-our @ISA = qw(Exporter Net::DBus::Binding::Message);
-
-our $VERSION = '0.0.1';
+use base qw(Exporter Net::DBus::Binding::Message);
 
 sub new {
     my $proto = shift;
diff --git a/lib/Net/DBus/Binding/Message/Signal.pm b/lib/Net/DBus/Binding/Message/Signal.pm
index 6693b0a..d0e046a 100644
--- a/lib/Net/DBus/Binding/Message/Signal.pm
+++ b/lib/Net/DBus/Binding/Message/Signal.pm
@@ -6,11 +6,7 @@ use warnings;
 use Carp;
 
 use Net::DBus;
-use Net::DBus::Binding::Message;
-
-our @ISA = qw(Exporter Net::DBus::Binding::Message);
-
-our $VERSION = '0.0.1';
+use base qw(Net::DBus::Binding::Message);
 
 sub new {
     my $proto = shift;
diff --git a/lib/Net/DBus/Binding/Server.pm b/lib/Net/DBus/Binding/Server.pm
index f770e55..939fac5 100644
--- a/lib/Net/DBus/Binding/Server.pm
+++ b/lib/Net/DBus/Binding/Server.pm
@@ -58,8 +58,6 @@ use Carp;
 use Net::DBus;
 use Net::DBus::Binding::Connection;
 
-our $VERSION = '0.0.1';
-
 =pod
 
 =item my $server = Net::DBus::Binding::Server->new(address => "unix:path=/path/to/socket");
diff --git a/lib/Net/DBus/Callback.pm b/lib/Net/DBus/Callback.pm
index d25e752..e251683 100644
--- a/lib/Net/DBus/Callback.pm
+++ b/lib/Net/DBus/Callback.pm
@@ -5,8 +5,6 @@ use strict;
 use warnings;
 use Carp qw(confess);
 
-our $VERSION = '0.0.1';
-
 sub new {
     my $proto = shift;
     my $class = ref($proto) || $proto;
diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm
index 1e07fcf..3ff9340 100644
--- a/lib/Net/DBus/Object.pm
+++ b/lib/Net/DBus/Object.pm
@@ -132,7 +132,6 @@ use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '0.0.1';
 our $ENABLE_INTROSPECT;
 
 BEGIN {
diff --git a/lib/Net/DBus/Reactor.pm b/lib/Net/DBus/Reactor.pm
index 8fe3d4c..ddf7bf6 100644
--- a/lib/Net/DBus/Reactor.pm
+++ b/lib/Net/DBus/Reactor.pm
@@ -103,8 +103,6 @@ use Net::DBus::Binding::Watch;
 use Net::DBus::Callback;
 use Time::HiRes qw(gettimeofday);
 
-our $VERSION = '0.0.1';
-
 =pod
 
 =item my $reactor = Net::DBus::Reactor->new();

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git



More information about the Pkg-perl-cvs-commits mailing list