Fixed case of /0+/ filename

bin/mkexec.pl

@@ -5,6 +5,7 @@ use strict;
 use warnings;
 
 sub usage; sub mkexec; sub guesstype; sub getcmd; sub launch_editor;
+sub nextarg { $ARGV[0] }
 
 my $DEFAULT_TYPE = 'pl';
 my $DEFAULT_MODE = 0755;
@@ -15,9 +16,10 @@ my $DEFAULT_FORCE = 0;
 ## INIT ## -------------------------------------------------------------------
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
 
-my $force = $ARGV[0] == '-f' ? shift : $DEFAULT_FORCE;
-my $name = shift or usage;
-my $type = ($ARGV[0] ? shift : guesstype $name);
+defined nextarg() or usage;
+my $force   = (nextarg() eq '-f' ? shift : $DEFAULT_FORCE);
+my $name    = (defined nextarg() ? shift : usage);
+my $type    = (defined nextarg() ? shift : guesstype $name);
 
 my $bangs = {
     pl   => `which perl`,
@@ -46,7 +48,8 @@ $cmds->{editor}->{run}  = "editor '%s'";
 ## ''' ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 if (exists $bangs->{$type}) {
-    -e $name and not $force || mkexec $name, mkbody($type);
+    -e $name and not $force
+        or mkexec $name, mkbody($type);
     chmod $DEFAULT_MODE, $name;
     launch_editor $name;
 } else {
@@ -78,10 +81,10 @@ sub mkbody {
 
 sub mkexec {
     my ($name, $body) = @_;
-    open EXE, ">", $name    || die "cannot open $name for writing: $!\n";
-    -W EXE                  || die "file $name is not writable\n";
+    open EXE, ">", $name    or die "cannot open $name for writing: $!\n";
+    -W EXE                  or die "file $name is not writable\n";
     print EXE $body;
-    close EXE               || die "cannot close $name: $!\n";
+    close EXE               or die "cannot close $name: $!\n";
 }
 
 sub get_cmd {