Showing the changes to scripts/checkstack.pl (1 of 26 files). Show all
Unified · Split
| @@ -173,4 +173,3 @@ while (my $line = <STDIN>) { · 172 unmodified lines | |||
| 173 | 173 | ||
| 174 | # Sort output by size (last field) | 174 | # Sort output by size (last field) |
| 175 | print sort { ($b =~ /:\t*(\d+)$/)[0] <=> ($a =~ /:\t*(\d+)$/)[0] } @stack; | 175 | print sort { ($b =~ /:\t*(\d+)$/)[0] <=> ($a =~ /:\t*(\d+)$/)[0] } @stack; |
| 176 | |||