about summary refs log tree commit diff
path: root/scripts/copy-from-other-stores.pl.in
diff options
context:
space:
mode:
authorEelco Dolstra <eelco.dolstra@logicblox.com>2014-08-20T15·00+0200
committerEelco Dolstra <eelco.dolstra@logicblox.com>2014-08-20T16·03+0200
commit11849a320e4f522b97fcdf09ff0940496880475b (patch)
tree13548f1c1bb2e01590b31d66d9bb8f46534bc99f /scripts/copy-from-other-stores.pl.in
parent373fad75e19a2f24db512621b8cedb627d03d49d (diff)
Use proper quotes everywhere
Diffstat (limited to 'scripts/copy-from-other-stores.pl.in')
-rwxr-xr-xscripts/copy-from-other-stores.pl.in13
1 files changed, 7 insertions, 6 deletions
diff --git a/scripts/copy-from-other-stores.pl.in b/scripts/copy-from-other-stores.pl.in
index bfd38c9ba3f8..cf36bae9e803 100755
--- a/scripts/copy-from-other-stores.pl.in
+++ b/scripts/copy-from-other-stores.pl.in
@@ -1,5 +1,6 @@
 #! @perl@ -w @perlFlags@
 
+use utf8;
 use strict;
 use File::Basename;
 use IO::Handle;
@@ -57,16 +58,16 @@ if ($ARGV[0] eq "--query") {
                 $ENV{"NIX_DB_DIR"} = "$store/var/nix/db";
 
                 my $deriver = `$binDir/nix-store --query --deriver $storePath`;
-                die "cannot query deriver of `$storePath'" if $? != 0;
+                die "cannot query deriver of ‘$storePath’" if $? != 0;
                 chomp $deriver;
                 $deriver = "" if $deriver eq "unknown-deriver";
 
                 my @references = split "\n",
                     `$binDir/nix-store --query --references $storePath`;
-                die "cannot query references of `$storePath'" if $? != 0;
+                die "cannot query references of ‘$storePath’" if $? != 0;
 
                 my $narSize = `$binDir/nix-store --query --size $storePath`;
-                die "cannot query size of `$storePath'" if $? != 0;
+                die "cannot query size of ‘$storePath’" if $? != 0;
                 chomp $narSize;
 
                 print "$storePath\n";
@@ -80,7 +81,7 @@ if ($ARGV[0] eq "--query") {
             print "\n";
         }
 
-        else { die "unknown command `$cmd'"; }
+        else { die "unknown command ‘$cmd’"; }
     }
 }
 
@@ -91,9 +92,9 @@ elsif ($ARGV[0] eq "--substitute") {
     my $destPath = $ARGV[2];
     my ($store, $sourcePath) = findStorePath $storePath;
     die unless $store;
-    print STDERR "\n*** Copying `$storePath' from `$sourcePath'\n\n";
+    print STDERR "\n*** Copying ‘$storePath’ from ‘$sourcePath’\n\n";
     system("$binDir/nix-store --dump $sourcePath | $binDir/nix-store --restore $destPath") == 0
-        or die "cannot copy `$sourcePath' to `$storePath'";
+        or die "cannot copy ‘$sourcePath’ to ‘$storePath’";
     print "\n"; # no hash to verify
 }