added sorting algorithm

lautr3k · 54a9a6d5b56c217c59b04f23ac40950b5b36661f · rkoeppl committed May 5, 2016 · May 5, 2016 · 54a9a6d
1 parent 48959ea
commit 54a9a6d5b56c217c59b04f23ac40950b5b36661f
Unified Split

Showing with 2 additions and 1 deletion.

+2 −1 modules/printengine.pl
diff --git a/modules/printengine.pl b/modules/printengine.pl
@@ -18,6 +18,7 @@
 use Sys::Mmap;
 use Graphics::Framebuffer;
 use Time::HiRes;
+use Sort::Key::Natural qw( natsort );
 #import configuration from configuration file
 our $cfg = new Config::Simple();
 $cfg->read("printengine.cfg");
@@ -215,7 +216,7 @@
 	} readdir(DIR);
     closedir(DIR);
     #sort array
-    my @pics_sorted=sort @pics
+    my @pics_sorted=natsort @pics;
     print @pics_sorted;
 #builtin framebuffer access