Shlomi Fish avatar Shlomi Fish committed f639e3f

Some cleanups to the perl code.

Comments (0)

Files changed (1)

src/wml_backend/p1_ipp/ipp.src

     &usage;
 }
 #   Adjust the -M flags
-if ($opt_M !~ m%^(-|[MD]*)$% && $#ARGV == -1) {
+if ($opt_M !~ m%^(-|[MD]*)$% && (! @ARGV)) {
     push(@ARGV,$opt_M);
     $opt_M = '';
 }
-&usage if ($#ARGV == -1);
+&usage if (! @ARGV);
 push(@opt_I, '.');
 
 #
             @ls = reverse @ls if ($arg{'IPP_REVERSE'});
 
             #   and truncate it
-            if ($arg{'IPP_MAX'} =~ m/^\d+$/ and $arg{'IPP_MAX'} < $#ls + 1) {
-                splice (@ls, $arg{'IPP_MAX'} - $#ls - 1);
+            if ($arg{'IPP_MAX'} =~ m/^\d+$/ and $arg{'IPP_MAX'} < @ls) {
+                splice (@ls, $arg{'IPP_MAX'} - scalar(@ls));
             }
             push (@ls, "");
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.