Commit c59974b2 authored by Daniel P. Berrange's avatar Daniel P. Berrange

Removed debug statement & added strict & warnings pragmas to all files

parent 7d465a67
# -*- perl -*-
use strict;
use warnings;
use Sys::Virt;
my $addr = @ARGV ? shift @ARGV : "";
......
# -*- perl -*-
use strict;
use warnings;
use Sys::Virt;
my $addr = "";
......
......@@ -67,7 +67,6 @@ sub new {
my $address = exists $params{address} ? $params{address} : "";
my $readonly = exists $params{readonly} ? $params{readonly} : 0;
print "Eek $address\n";
my $self = Sys::Virt::_open($address, $readonly);
bless $self, $class;
......
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();
# -*- perl -*-
use strict;
use warnings;
use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage" if $@;
......
# -*- perl -*-
use strict;
use warnings;
use Test::More tests => 1;
BEGIN {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment