mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Shut up "Wide character" warnings in Perl scripts

Browse source
This commit is contained in:
Eelco Dolstra 2014-08-29 17:48:25 +02:00
parent b72e93bca8
commit 27a01d92c2
10 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scripts/build-remote.pl.in
View file

@ -1,5 +1,6 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use Fcntl qw(:DEFAULT :flock); use Fcntl qw(:DEFAULT :flock);
use English '-no_match_vars'; use English '-no_match_vars';
use IO::Handle; use IO::Handle;
@ -9,6 +10,8 @@ use Nix::CopyClosure;
use Nix::Store; use Nix::Store;
no warnings('once'); no warnings('once');
binmode STDERR, ":encoding(utf8)";
# General operation: # General operation:
# #

2
scripts/download-from-binary-cache.pl.in
View file

@ -1,5 +1,6 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use DBI; use DBI;
use DBD::SQLite; use DBD::SQLite;
use File::Basename; use File::Basename;
@ -12,6 +13,7 @@ use WWW::Curl::Easy;
use WWW::Curl::Multi; use WWW::Curl::Multi;
use strict; use strict;
binmode STDERR, ":encoding(utf8)";
Nix::Config::readConfig; Nix::Config::readConfig;

1
scripts/download-using-manifests.pl.in
View file

@ -9,6 +9,7 @@ use Nix::Utils;
use POSIX qw(strftime); use POSIX qw(strftime);
STDOUT->autoflush(1); STDOUT->autoflush(1);
binmode STDERR, ":encoding(utf8)";
my $logFile = "$Nix::Config::logDir/downloads"; my $logFile = "$Nix::Config::logDir/downloads";

2
scripts/nix-build.in
View file

@ -1,10 +1,12 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use Nix::Config; use Nix::Config;
use Nix::Store; use Nix::Store;
use Nix::Utils; use Nix::Utils;
binmode STDERR, ":encoding(utf8)";
my $dryRun = 0; my $dryRun = 0;
my $verbose = 0; my $verbose = 0;

3
scripts/nix-channel.in
View file

@ -1,11 +1,14 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use File::Basename; use File::Basename;
use File::Path qw(mkpath); use File::Path qw(mkpath);
use Nix::Config; use Nix::Config;
use Nix::Manifest; use Nix::Manifest;
binmode STDERR, ":encoding(utf8)";
Nix::Config::readConfig; Nix::Config::readConfig;
my $manifestDir = $Nix::Config::manifestDir; my $manifestDir = $Nix::Config::manifestDir;

1
scripts/nix-copy-closure.in
View file

@ -6,6 +6,7 @@ use Nix::Store;
use Nix::CopyClosure; use Nix::CopyClosure;
use List::Util qw(sum); use List::Util qw(sum);
binmode STDERR, ":encoding(utf8)";
if (scalar @ARGV < 1) { if (scalar @ARGV < 1) {
print STDERR <<EOF print STDERR <<EOF

3
scripts/nix-install-package.in
View file

@ -1,9 +1,12 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use Nix::Config; use Nix::Config;
use Nix::Utils; use Nix::Utils;
binmode STDERR, ":encoding(utf8)";
# Parse the command line arguments. # Parse the command line arguments.
my @args = @ARGV; my @args = @ARGV;

4
scripts/nix-prefetch-url.in
View file

@ -1,5 +1,6 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use File::Basename; use File::Basename;
use File::stat; use File::stat;
@ -7,6 +8,9 @@ use Nix::Store;
use Nix::Config; use Nix::Config;
use Nix::Utils; use Nix::Utils;
binmode STDERR, ":encoding(utf8)";
my $hashType = $ENV{'NIX_HASH_ALGO'} || "sha256"; # obsolete my $hashType = $ENV{'NIX_HASH_ALGO'} || "sha256"; # obsolete
my $cacheDir = $ENV{'NIX_DOWNLOAD_CACHE'}; my $cacheDir = $ENV{'NIX_DOWNLOAD_CACHE'};

3
scripts/nix-pull.in
View file

@ -1,9 +1,12 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use Nix::Config; use Nix::Config;
use Nix::Manifest; use Nix::Manifest;
binmode STDERR, ":encoding(utf8)";
my $manifestDir = $Nix::Config::manifestDir; my $manifestDir = $Nix::Config::manifestDir;

3
scripts/nix-push.in
View file

@ -1,5 +1,6 @@
#! @perl@ -w @perlFlags@ #! @perl@ -w @perlFlags@
use utf8;
use strict; use strict;
use File::Basename; use File::Basename;
use File::Path qw(mkpath); use File::Path qw(mkpath);
@ -11,6 +12,8 @@ use Nix::Manifest;
use Nix::Utils; use Nix::Utils;
use Nix::Crypto; use Nix::Crypto;
binmode STDERR, ":encoding(utf8)";
my $tmpDir = mkTempDir("nix-push"); my $tmpDir = mkTempDir("nix-push");
my $nixExpr = "$tmpDir/create-nars.nix"; my $nixExpr = "$tmpDir/create-nars.nix";