--- Number-Fraction-1.08/lib/Number/Fraction.pm  Sat Oct 22 16:19:07 2005
+++ davidrw/dev/Number/Fraction.pm   Wed Mar  1 15:19:37 2006
@@ -187,8 +187,8 @@
        }
     } else {
-      return unless $_[0] =~ m|^(-?\d+)/(-?\d+)|;
+      return unless $_[0] =~ m|^(-?\d+)(?:/(-?\d+))?$|;

       $self->{num} = $1;
-      $self->{den} = $2;
+      $self->{den} = defined($2) ? $2 : 1;
     }
   } else {