[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