update

[l4.git] / l4 / tool / lib / L4 / ModList.pm

diff --git a/l4/tool/lib/L4/ModList.pm b/l4/tool/lib/L4/ModList.pm
index d1dd73db595873f1491e7cf072d3f1bd5ce342ad..356c6a3616a7fb278aaa63586cfeed893f39414b 100644 (file)
--- a/l4/tool/lib/L4/ModList.pm
+++ b/l4/tool/lib/L4/ModList.pm
@@ -285,7 +285,7 @@ sub get_file_uncompressed_or_die($$$)
   read F, $buf, 2;
   close F;
 
-  if (unpack("n", $buf) == 0x1f8b) {
+  if (length($buf) >= 2 && unpack("n", $buf) == 0x1f8b) {
     (my $tf = $fp) =~ s|.*/||;
     $tf = $tmpdir.'/'.$tf;
     print "'$fp' is a zipped file, uncompressing to '$tf'\n";