fix dist/Time-HiRes/t/*.t that assumed '.' in @INC

[perl5.git] / symbian / hexdump.pl

diff --git a/symbian/hexdump.pl b/symbian/hexdump.pl
index 37adff3..d1741f8 100644 (file)
--- a/symbian/hexdump.pl
+++ b/symbian/hexdump.pl
@@ -22,7 +22,7 @@ for my $fn ($EXE, $RSC) {
        my $newfn = $new{$fn};
        unlink($newfn);
        if (($read = sysread($fh, $buffer, $size)) == $size) {
-           if (open(my $newfh, ">$newfn")) {
+           if (open(my $newfh, '>', $newfn)) {
                binmode($newfh);
                print $newfh unpack("H*", $buffer);
                close($newfh);