diff options
| author | Eelco Dolstra <eelco.dolstra@logicblox.com> | 2014-08-20T15·00+0200 |
|---|---|---|
| committer | Eelco Dolstra <eelco.dolstra@logicblox.com> | 2014-08-20T16·03+0200 |
| commit | 11849a320e4f522b97fcdf09ff0940496880475b (patch) | |
| tree | 13548f1c1bb2e01590b31d66d9bb8f46534bc99f /perl/lib/Nix/Utils.pm | |
| parent | 373fad75e19a2f24db512621b8cedb627d03d49d (diff) | |
Use proper quotes everywhere
Diffstat (limited to 'perl/lib/Nix/Utils.pm')
| -rw-r--r-- | perl/lib/Nix/Utils.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/lib/Nix/Utils.pm b/perl/lib/Nix/Utils.pm index 05cd92b8ea0d..32fb0aafb808 100644 --- a/perl/lib/Nix/Utils.pm +++ b/perl/lib/Nix/Utils.pm @@ -1,5 +1,6 @@ package Nix::Utils; +use utf8; use File::Temp qw(tempdir); our @ISA = qw(Exporter); @@ -25,7 +26,7 @@ sub uniq { sub writeFile { my ($fn, $s) = @_; - open TMP, ">$fn" or die "cannot create file `$fn': $!"; + open TMP, ">$fn" or die "cannot create file ‘$fn’: $!"; print TMP "$s" or die; close TMP or die; } @@ -33,7 +34,7 @@ sub writeFile { sub readFile { local $/ = undef; my ($fn) = @_; - open TMP, "<$fn" or die "cannot open file `$fn': $!"; + open TMP, "<$fn" or die "cannot open file ‘$fn’: $!"; my $s = <TMP>; close TMP or die; return $s; |