[libnet-dbus-perl] 205/335: Made sure everything uses strict & warnings pragmas

Intrigeri intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:57 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 b33787ec974e698f67cc1f74c4057917a1b6a151
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Tue Jun 13 16:02:19 2006 -0400

    Made sure everything uses strict & warnings pragmas
---
 CHANGES                                   | 3 +++
 examples/dump-object.pl                   | 3 +++
 examples/example-client-no-introspect.pl  | 3 +++
 examples/example-client.pl                | 3 +++
 examples/example-service-no-introspect.pl | 3 +++
 examples/example-service.pl               | 3 +++
 examples/example-signal-emitter.pl        | 3 +++
 examples/example-signal-receiver.pl       | 3 +++
 lib/Net/DBus.pm                           | 2 ++
 lib/Net/DBus/Service.pm                   | 4 ++++
 t/05-pod.t                                | 6 ++++++
 t/10-pod-coverage.t                       | 4 ++++
 t/15-message.t                            | 4 ++++
 t/20-callback.t                           | 3 +++
 t/30-server.t                             | 3 +++
 t/45-exporter.t                           | 5 +++++
 16 files changed, 55 insertions(+)

diff --git a/CHANGES b/CHANGES
index d34963c..45ba4bf 100644
--- a/CHANGES
+++ b/CHANGES
@@ -8,6 +8,9 @@ Changes since 0.33.2
    updates / bug fixes since 1999(!), and several people have 
    reported problems using it on Perl 5.8.x 
 
+ - Made all Perl scripts / modules / tests use 'strict' and
+   'warnings' pragmas
+
 Changes since 0.33.1
 
  - Fixed handling of variants in introspection data
diff --git a/examples/dump-object.pl b/examples/dump-object.pl
index 7aaab09..4ce4a7b 100644
--- a/examples/dump-object.pl
+++ b/examples/dump-object.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use warnings;
+use strict;
+
 use Net::DBus;
 use Net::DBus::Dumper;
 use Carp qw(confess);
diff --git a/examples/example-client-no-introspect.pl b/examples/example-client-no-introspect.pl
index ac28df6..01be26a 100644
--- a/examples/example-client-no-introspect.pl
+++ b/examples/example-client-no-introspect.pl
@@ -1,5 +1,8 @@
 #/usr/bin/perl
 
+use warnings;
+use strict;
+
 use Net::DBus;
 use Carp qw(cluck carp);
 #$SIG{__WARN__} = sub { cluck $_[0] };
diff --git a/examples/example-client.pl b/examples/example-client.pl
index 1b5a179..74ba76e 100644
--- a/examples/example-client.pl
+++ b/examples/example-client.pl
@@ -1,5 +1,8 @@
 #/usr/bin/perl
 
+use warnings;
+use strict;
+
 use Net::DBus;
 use Carp qw(cluck carp confess);
 #$SIG{__WARN__} = sub { cluck $_[0] };
diff --git a/examples/example-service-no-introspect.pl b/examples/example-service-no-introspect.pl
index 10d6929..f5ab365 100644
--- a/examples/example-service-no-introspect.pl
+++ b/examples/example-service-no-introspect.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use warnings;
+use strict;
+
 use Carp qw(confess cluck);
 use Net::DBus;
 use Net::DBus::Service;
diff --git a/examples/example-service.pl b/examples/example-service.pl
index 5dad5ca..c058ef1 100644
--- a/examples/example-service.pl
+++ b/examples/example-service.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+use warnings;
+use strict;
+
 use Carp qw(confess cluck);
 use Net::DBus;
 use Net::DBus::Service;
diff --git a/examples/example-signal-emitter.pl b/examples/example-signal-emitter.pl
index 47cc9ef..7616346 100644
--- a/examples/example-signal-emitter.pl
+++ b/examples/example-signal-emitter.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
 
+use warnings;
+use strict;
+
 use Net::DBus;
 use Net::DBus::Reactor;
 use Net::DBus::Service;
diff --git a/examples/example-signal-receiver.pl b/examples/example-signal-receiver.pl
index dd20945..c00dadc 100644
--- a/examples/example-signal-receiver.pl
+++ b/examples/example-signal-receiver.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
 
+use warnings;
+use strict;
+
 use Net::DBus;
 use Net::DBus::Reactor;
 
diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm
index 31f63f9..bad07ad 100644
--- a/lib/Net/DBus.pm
+++ b/lib/Net/DBus.pm
@@ -745,6 +745,8 @@ Copyright 2004-2005 by Daniel Berrange
 
 package Net::DBus::Error;
 
+use strict;
+use warnings;
 use overload ('""' => 'stringify');
 
 sub stringify {
diff --git a/lib/Net/DBus/Service.pm b/lib/Net/DBus/Service.pm
index 457d9f3..913b669 100644
--- a/lib/Net/DBus/Service.pm
+++ b/lib/Net/DBus/Service.pm
@@ -56,6 +56,10 @@ and export objects to the bus.
 
 package Net::DBus::Service;
 
+use 5.006;
+use strict;
+use warnings;
+
 =item my $service = Net::DBus::Service->new($bus, $name);
 
 Create a new service, attaching to the bus provided in
diff --git a/t/05-pod.t b/t/05-pod.t
index 437887a..819ea48 100644
--- a/t/05-pod.t
+++ b/t/05-pod.t
@@ -1,4 +1,10 @@
+# -*- perl -*-
+
 use Test::More;
+
+use strict;
+use warnings;
+
 eval "use Test::Pod 1.00";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
 all_pod_files_ok();
diff --git a/t/10-pod-coverage.t b/t/10-pod-coverage.t
index 7d9a0a2..fe076a7 100644
--- a/t/10-pod-coverage.t
+++ b/t/10-pod-coverage.t
@@ -1,6 +1,10 @@
 # -*- perl -*-
 
 use Test::More;
+
+use strict;
+use warnings;
+
 eval "use Test::Pod::Coverage 1.00";
 plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
 all_pod_coverage_ok();
diff --git a/t/15-message.t b/t/15-message.t
index 9cccd73..0ccbeb7 100644
--- a/t/15-message.t
+++ b/t/15-message.t
@@ -1,5 +1,9 @@
 # -*- perl -*-
 use Test::More tests => 25;
+
+use strict;
+use warnings;
+
 BEGIN { 
         use_ok('Net::DBus::Binding::Iterator');
         use_ok('Net::DBus::Binding::Message::Signal');
diff --git a/t/20-callback.t b/t/20-callback.t
index 0aad0d8..7e62f07 100644
--- a/t/20-callback.t
+++ b/t/20-callback.t
@@ -1,6 +1,9 @@
 # -*- perl -*-
 use Test::More tests => 5;
 
+use strict;
+use warnings;
+
 BEGIN {
     use_ok('Net::DBus::Callback');
 };
diff --git a/t/30-server.t b/t/30-server.t
index ebca5b6..c03fe98 100644
--- a/t/30-server.t
+++ b/t/30-server.t
@@ -1,6 +1,9 @@
 # -*- perl -*-
 use Test::More tests => 11;
 
+use strict;
+use warnings;
+
 BEGIN { 
         use_ok('Net::DBus::Binding::Server');
         use_ok('Net::DBus::Binding::Connection');
diff --git a/t/45-exporter.t b/t/45-exporter.t
index 4c6d63a..2bd2255 100644
--- a/t/45-exporter.t
+++ b/t/45-exporter.t
@@ -2,8 +2,13 @@
 
 use Test::More tests => 93;
 
+use strict;
+use warnings;
+
 package MyObject1;
 
+use strict;
+use warnings;
 use Test::More;
 use base qw(Net::DBus::Object);
 use Net::DBus;

-- 
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