--- sorting.pm	2005-11-17 08:46:53.000000000 +0800
+++ sorting.pm.new	2005-12-02 21:55:37.000000000 +0800
@@ -136,13 +136,19 @@
     {
       @SORTED = sort{ return (stat($b))[9] <=> ( stat($a))[9]; } @files;
     }
+    elsif ( $format =~ /\$FULLPATH/ )
+    {
+      @SORTED = sort{ print "One: $a\n";
+                      print "Two: $b\n";
+                      return( uc($a) cmp uc($b) ); } @files;
+    }
     else
     {
       @SORTED = sort{ my $one = getSongDisplay( $a, $format );
 		      my $two = getSongDisplay( $b, $format );
 		      print "One: $one\n";
 			print "Two: $two\n";
-		      return( $one cmp $two ); } @files;
+		      return( uc($one) cmp uc($two) ); } @files;
     }
 
     # Restore the previous format string.