From ecdd3ec8d7247cb92defb0f071114eb295611196 Mon Sep 17 00:00:00 2001 From: Andreas Barth Date: Wed, 30 Mar 2011 21:59:56 +0000 Subject: [PATCH] another fix for use warnings --- bin/wanna-build | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/wanna-build b/bin/wanna-build index ffdbcfc..36cebc9 100755 --- a/bin/wanna-build +++ b/bin/wanna-build @@ -1456,9 +1456,9 @@ sub sort_list_func { foreach my $letter (split( //, $list_order )) { my $r; - $r = &{$map_funcs->{$letter}[1]}($b) <=> &{$map_funcs->{$letter}[1]}($a) if $map_funcs->{$letter}[0] eq '<->'; - $r = &{$map_funcs->{$letter}[1]}($a) <=> &{$map_funcs->{$letter}[1]}($b) if $map_funcs->{$letter}[0] eq '<=>'; - $r = &{$map_funcs->{$letter}[1]}($a) cmp &{$map_funcs->{$letter}[1]}($b) if $map_funcs->{$letter}[0] eq 'cmp'; + $r = (&{$map_funcs->{$letter}[1]}($b)//0 ) <=> (&{$map_funcs->{$letter}[1]}($a)//0 ) if $map_funcs->{$letter}[0] eq '<->'; + $r = (&{$map_funcs->{$letter}[1]}($a)//0 ) <=> (&{$map_funcs->{$letter}[1]}($b)//0 ) if $map_funcs->{$letter}[0] eq '<=>'; + $r = (&{$map_funcs->{$letter}[1]}($a)//"") cmp (&{$map_funcs->{$letter}[1]}($b)//"") if $map_funcs->{$letter}[0] eq 'cmp'; return $r if $r != 0; } return 0; -- 2.39.2