*** blorbtar-0.1.pl.old Wed Jul 18 17:44:17 2001
--- blorbtar-0.1.pl Wed Jul 18 17:47:01 2001
***************
*** 65,71 ****
"PNG " => "png",
"FORM" => \&FORM_ext,
"MOD " => "mod",
! "Glul" => "ulx",
"TADG" => "gam",
"MSRL" => "mag",
"ZCOD" => \&ZCOD_ext,
--- 65,71 ----
"PNG " => "png",
"FORM" => \&FORM_ext,
"MOD " => "mod",
! "GLUL" => "ulx",
"TADG" => "gam",
"MSRL" => "mag",
"ZCOD" => \&ZCOD_ext,
***************
*** 130,136 ****
seek CHUNK, 0, 0;
read CHUNK, $magic, 64;
if($magic =~ /^Glul/) {
! return "Glul";
}
if($magic =~ /^TADS2 bin\x0a\x0d\x1a\x00\x76/s) {
return "TADG";
--- 130,136 ----
seek CHUNK, 0, 0;
read CHUNK, $magic, 64;
if($magic =~ /^Glul/) {
! return "GLUL";
}
if($magic =~ /^TADS2 bin\x0a\x0d\x1a\x00\x76/s) {
return "TADG";