Fix some runtime warns.

[nethome.git] / bin / sortn

diff --git a/bin/sortn b/bin/sortn
index bf87d95..ad0c7d0 100755 (executable)
--- a/bin/sortn
+++ b/bin/sortn
@@ -7,15 +7,15 @@ print sort {
        my $a=$a;
        my $b=$b;
        while ($a ne "" || $b ne "") {
-               $a=~s/^(\D+)//s;
+               $a=~s/^(\D*)//s;
                my $as=$1;
-               $b=~s/^(\D+)//s;
+               $b=~s/^(\D*)//s;
                my $bs=$1;
                my $rs=$as cmp $bs;
                return $rs if $rs;
-               $a=~s/^(\d+)//s;
+               $a=~s/^(\d*)//s;
                my $an=$1;
-               $b=~s/^(\d+)//s;
+               $b=~s/^(\d*)//s;
                my $bn=$1;
                my $rn=$an<=>$bn;
                return $rn if $rn;