diff options
Diffstat (limited to 'symbian/makesis.pl')
| -rw-r--r-- | symbian/makesis.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/symbian/makesis.pl b/symbian/makesis.pl index 270f6b4434..58199cec77 100644 --- a/symbian/makesis.pl +++ b/symbian/makesis.pl @@ -72,7 +72,7 @@ for my $target (@target) { print "\tErrno.pm\n"; $copy{"ext\\Errno\\Errno.pm"} = "$lib\\Perl\\$R_V_SV\\Errno.pm"; - open( my $cfg, "symbian/install.cfg" ) + open( my $cfg, '<', "symbian/install.cfg" ) or die "$!: symbian/install.cfg: $!\n"; while (<$cfg>) { next unless /^lib\s+(.+)/; @@ -98,7 +98,7 @@ for my $target (@target) { my $ext = $1; $ext =~ s!-!::!g; print "\t$ext\n"; - if ( open( my $pkg, $lst ) ) { + if ( open( my $pkg, '<', $lst ) ) { while (<$pkg>) { if (m!^"(.+)"-"(.+)"$!) { my ( $src, $dst ) = ( $1, $2 ); @@ -165,7 +165,7 @@ qq[;Supports Series 80 v2.0\n(0x101F8ED2), 0, 0, 0, {"Series80ProductID"}\n] : qq[;Supports Series 90 v1.1\n(0x101FBE05), 0, 0, 0, {"Series90ProductID"}\n] : ";Supports Series NN"; - open PKG, ">$pkg" or die "$0: failed to create $pkg: $!\n"; + open PKG, '>', $pkg or die "$0: failed to create $pkg: $!\n"; print PKG <<__EOF__; ; \u$target installation script ; |