1.1 --- a/lib/Qemudo/Images.pm Fri Feb 06 10:45:19 2009 -0800
1.2 +++ b/lib/Qemudo/Images.pm Tue Mar 03 20:21:12 2009 -0800
1.3 @@ -196,7 +196,9 @@
1.4 my $bytes = read($fh, $buf, $nb);
1.5 defined($bytes) or die "read header: $!: $fname\n";
1.6 my $magic = substr($buf, 0, 4);
1.7 - $magic eq "QFI\xfb" or die "invalid qcow magic '$magic': $fname\n";
1.8 + # Allow raw images. -mrb
1.9 + #$magic eq "QFI\xfb" or die "invalid qcow magic '$magic': $fname\n";
1.10 + $magic eq "QFI\xfb" or return "";
1.11 $bytes == $nb or die "read only $bytes/$nb bytes: $fname\n";
1.12 my ($v, $off2, $off1, $len) = unpack "NNNN", substr($buf, 4);
1.13 $v > 0 and $v <= 2 or die "unsupported qcow version $v: $fname\n";