dmitriy.kazimirov/inxi
1
0
Fork 0
mirror of https://github.com/smxi/inxi.git synced 2024-11-16 16:21:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

cleanup

Browse source
This commit is contained in:
Harald Hope 2018-07-30 21:09:03 -07:00
parent bdab3965b7
commit d395fff871
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
inxi
View file

@ -3067,12 +3067,12 @@ sub globber {
}
## NOTE: for perl pre 5.012 length(undef) returns warning
# receives string, returns boolean 0/1 if integer
# receives string, returns boolean 1 if integer
sub is_int {
return 1 if (defined $_[0] && length($_[0]) && length($_[0]) == ($_[0] =~ tr/0123456789//));
}
# receives string, returns boolean 0/1 if numeric. tr/// is 4x faster than regex
# receives string, returns boolean 1 if numeric. tr/// is 4x faster than regex
sub is_numeric {
return 1 if ( defined $_[0] && ( $_[0] =~ tr/0123456789//) >= 1 &&
length($_[0]) == ($_[0] =~ tr/0123456789.//) && ($_[0] =~ tr/.//) <= 1);
@ -17565,7 +17565,8 @@ sub set_ps_gui {
@temp=qw(3dwm 9wm afterstep amiwm awesome blackbox bspwm
dwm fluxbox flwm fvwm.*-crystal fvwm2 fvwm i3 jwm
matchbox-window-manager mwm openbox notion pekwm ratpoison
sawfish scrotwm spectrwm twm windowlab WindowMaker wm2 wmii2 wmii xmonad);
sawfish scrotwm spectrwm twm
windowlab WindowMaker wm2 wmii2 wmii xmonad);
@match = (@match,@temp);
}
# wm: