diff --git a/PHP-Serialization/lib/PHP/Serialization.pm b/PHP-Serialization/lib/PHP/Serialization.pm

index f4edf5c..445f522 100644

--- a/PHP-Serialization/lib/PHP/Serialization.pm

+++ b/PHP-Serialization/lib/PHP/Serialization.pm

@@ -270,7 +270,7 @@ sub _readnum {

 	my $string;

 	while ( 1 ) {

 		my $char = $self->_readchar();

-		if ( $char !~ /^[\d\.]+$/ ) {

+		if ( $char !~ /^[-\d\.]+$/ ) {

 			$$cursor--;

 			last;

 		}

diff --git a/PHP-Serialization/t/alt-1.t b/PHP-Serialization/t/alt-1.t

index e69de29..992c7ac 100644

--- a/PHP-Serialization/t/alt-1.t

+++ b/PHP-Serialization/t/alt-1.t

@@ -0,0 +1,21 @@

+#!/usr/bin/perl

+

+use Test::More tests => 5;

+#use Test::More qw/no_plan/;

+

+use PHP::Serialization qw(unserialize serialize);

+

+t ([-67]);

+t ([-67, -89]);

+t ([-1.0890,-20.345,-30.1]);

+

+t ([[-67]]);

+t ([[[[-67]]]]);

+

+

+sub t {

+    my $data = shift;

+    my $encoded = serialize($data);

+    #diag($encoded);

+    is_deeply($data,&unserialize($encoded));

+}