Bladeren bron

test: Fix perlcritic errors in t-tar.t

Fixes ValuesAndExpressions::RequireQuotedHeredocTerminator and
ValuesAndExpressions::ProhibitInterpolationOfLiterals.
Guillem Jover 11 jaren geleden
bovenliggende
commit
e0b76a5e48
1 gewijzigde bestanden met toevoegingen van 3 en 3 verwijderingen
  1. 3 3
      lib/dpkg/test/t-tar.t

+ 3 - 3
lib/dpkg/test/t-tar.t

@@ -97,7 +97,7 @@ sub test_tar_extractor {
     my $stdout;
     my $stderr;
 
-    my $expected_tar = <<TAR;
+    my $expected_tar = <<'TAR';
 . mode=40755 time=100000000.000000000 uid=100 gid=200 uname=user gname=group type=dir
 ./fifo mode=10750 time=100000000.000000000 uid=100 gid=200 uname=user gname=group type=fifo
 ./file mode=100644 time=100000000.000000000 uid=100 gid=200 uname=user gname=group type=file size=0
@@ -141,8 +141,8 @@ TAR
 
         my $paths_list = join "\0", @paths;
         spawn(exec => [ 'tar', '-cf', "$dirtree.tar", '--format', $type,
-                        '-C', $dirtree, "--mtime=\@100000000",
-                        "--owner=user:100", "--group=group:200",
+                        '-C', $dirtree, '--mtime=@100000000',
+                        '--owner=user:100', '--group=group:200',
                         '--null', '--no-unquote', '--no-recursion', '-T-' ],
               wait_child => 1, from_string => \$paths_list);