[libvirt] [tck PATCH v3 1/2] Remove tab characters from Build.PL

Laine Stump laine at laine.org
Tue Mar 6 14:17:51 UTC 2018


Signed-off-by: Laine Stump <laine at laine.org>
---
 Build.PL | 104 +++++++++++++++++++++++++++++++--------------------------------
 1 file changed, 52 insertions(+), 52 deletions(-)

diff --git a/Build.PL b/Build.PL
index 63785a5..9593021 100644
--- a/Build.PL
+++ b/Build.PL
@@ -27,11 +27,11 @@ sub process_pkgdata_files {
     my $wanted = sub {
         my $dir = $File::Find::dir;
         my $name = $File::Find::name;
-	if (-d) {
-	    $tck_dirs{$name} = [];
-	} elsif (-f && /\.(t|sh|fwall|xml|dat)$/) {
-	    push @{$tck_dirs{$dir}}, $name;
-	}
+        if (-d) {
+            $tck_dirs{$name} = [];
+        } elsif (-f && /\.(t|sh|fwall|xml|dat)$/) {
+            push @{$tck_dirs{$dir}}, $name;
+        }
     };
 
     find($wanted, 'scripts');
@@ -40,19 +40,19 @@ sub process_pkgdata_files {
     File::Path::mkpath($tck_dir);
 
     foreach my $srcdir (keys %tck_dirs) {
-	next unless @{$tck_dirs{$srcdir}};
+        next unless @{$tck_dirs{$srcdir}};
 
-	my $dstdir = $srcdir;
-	$dstdir =~ s,scripts/,,;
+        my $dstdir = $srcdir;
+        $dstdir =~ s,scripts/,,;
 
-	$dstdir = File::Spec->catdir($self->blib, 'pkgdata', $dstdir);
-	File::Path::mkpath($dstdir);
+        $dstdir = File::Spec->catdir($self->blib, 'pkgdata', $dstdir);
+        File::Path::mkpath($dstdir);
 
-	foreach my $file (@{$tck_dirs{$srcdir}}) {
-	    my $result = $self->copy_if_modified(from => $file,
-						 to_dir => $dstdir,
-						 flatten => 1);
-	}
+        foreach my $file (@{$tck_dirs{$srcdir}}) {
+            my $result = $self->copy_if_modified(from => $file,
+                                                 to_dir => $dstdir,
+                                                 flatten => 1);
+        }
     }
 }
 
@@ -64,52 +64,52 @@ my $b = $class->new(
     dist_author => 'Daniel Berrange <dan at berrange.com>',
     dist_abstract => 'libvirt Technology Compatability Kit',
     requires => {
-	'perl' => '5.8.0',
-	'accessors' => 0,
-	'App::Prove' => '3.11',
-	'Config::Record' => '1.0.0',
-	'Cwd' => 0,
-	'Digest' => 0,
-	'Digest::MD5' => 0,
-	'File::Copy' => 0,
-	'File::Path' => 0,
-	'File::Slurp' => 0,
-	'File::Spec::Functions' => 0,
-	'LWP::UserAgent' => 0,
-	'IO::String' => 0,
-	'IO::Uncompress::Gunzip' => 0,
-	'IO::Uncompress::Bunzip2' => 0,
-	'TAP::Formatter::HTML' => 0,
-	'TAP::Formatter::JUnit' => 0,
-	'TAP::Harness' => 3.11,
-	'TAP::Harness::Archive' => 0,
-	'Test::Exception' => 0,
-	'Test::Builder' => 0,
-	'Test::More' => 0,
-	'Sub::Uplevel' => 0,
-	'Sys::Virt' => '0.2.0',
-	'XML::Twig' => 0,
-	'XML::Writer' => 0,
-	'XML::XPath' => 0,
+        'perl' => '5.8.0',
+        'accessors' => 0,
+        'App::Prove' => '3.11',
+        'Config::Record' => '1.0.0',
+        'Cwd' => 0,
+        'Digest' => 0,
+        'Digest::MD5' => 0,
+        'File::Copy' => 0,
+        'File::Path' => 0,
+        'File::Slurp' => 0,
+        'File::Spec::Functions' => 0,
+        'LWP::UserAgent' => 0,
+        'IO::String' => 0,
+        'IO::Uncompress::Gunzip' => 0,
+        'IO::Uncompress::Bunzip2' => 0,
+        'TAP::Formatter::HTML' => 0,
+        'TAP::Formatter::JUnit' => 0,
+        'TAP::Harness' => 3.11,
+        'TAP::Harness::Archive' => 0,
+        'Test::Exception' => 0,
+        'Test::Builder' => 0,
+        'Test::More' => 0,
+        'Sub::Uplevel' => 0,
+        'Sys::Virt' => '0.2.0',
+        'XML::Twig' => 0,
+        'XML::Writer' => 0,
+        'XML::XPath' => 0,
     },
     build_requires => {
-	'Test::Pod' => '0',
-	'Test::Pod::Coverage' => '0',
+        'Test::Pod' => '0',
+        'Test::Pod::Coverage' => '0',
     },
     script_files => [
-	"bin/libvirt-tck",
+        "bin/libvirt-tck",
     ],
     create_makefile_pl  => 'passthrough',
     meta_add => {
-	resources => {
-	  license => "http://www.gnu.org/licenses/gpl.html",
-	  homepage =>  "http://libvirt.org/",
-	  repository => "http://libvirt.org/hg/libvirt-tck",
-	  MailingList => "http://www.redhat.com/mailman/listinfo/libvir-list",
-	},
+        resources => {
+            license => "http://www.gnu.org/licenses/gpl.html",
+            homepage =>  "http://libvirt.org/",
+            repository => "http://libvirt.org/hg/libvirt-tck",
+            MailingList => "http://www.redhat.com/mailman/listinfo/libvir-list",
+        },
     },
     conf_files => {
-	'conf/default.cfg' => 'conf/default.cfg',
+        'conf/default.cfg' => 'conf/default.cfg',
     },
     PL_files => [ 'perl-Sys-Virt-TCK.spec.PL' ],
     );
-- 
2.14.3




More information about the libvir-list mailing list