X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/ce0df5c87882d5275a22ab3bb3f5642c577927b6..f4886cc6c2159afd00025585fcc6ea7aac820391:/parse-wormedit

diff --git a/parse-wormedit b/parse-wormedit
index 585c03a..ed64118 100755
--- a/parse-wormedit
+++ b/parse-wormedit
@@ -19,7 +19,7 @@ package Shiar_Parse::WormEdit;
 use strict;
 use warnings;
 
-use Parse::Binary::Nested;
+use Parse::Binary::Nested qw(unpackf);
 
 our %MAGICID = (
 	"WormEdit053\000LVL" => 53,
@@ -153,7 +153,7 @@ sub read {
 
 	# convert to an easily accessible hash
 	push @FORMAT, -trail => 'a*';
-	my $data = Parse::Binary::Nested->new(\@FORMAT)->unpackf($input);
+	my $data = unpackf(\@FORMAT, $input);
 	warn "Trailing data left unparsed\n" if length delete $data->{-trail};
 	$data->{format} = 'WormEdit';
 	return $data;
@@ -167,7 +167,7 @@ use warnings;
 
 use List::Util qw(sum min max);
 use Data::Dumper;
-use Parse::Binary::Nested;
+use Parse::Binary::Nested qw(unpackf);
 
 sub read {
 	my ($self, $input) = @_;
@@ -293,7 +293,7 @@ sub read {
 		}
 	}
 
-	my $data = Parse::Binary::Nested->new(\@FORMAT)->unpackf($input);
+	my $data = unpackf(\@FORMAT, $input);
 	my $offset = 0;
 	$offsetbase += 1 + @{ $data->{sprite} } if $data->{sprite};
 	$data->{moderef}->{offset}->{single} == $offsetbase