[PATCH] classes/perlint.pmc

[Sam Ruby]

Fix for a minor problem.  Found by inspection.
- Sam Ruby
.sub main @MAIN
    $P1 = new PerlInt
    $P1 = 5
    $P2 = new PerlNum
    $P2 = 0.2
    $P3 = new PerlNum
    $P3 = $P1 / $P2
    print $P3
    print "\n"
.end
? classes/pyboolean.pmc
? classes/pydict.pmc
? classes/pyfloat.pmc
? classes/pyint.pmc
? classes/pylist.pmc
? classes/pynone.pmc
? classes/pyobject.pmc
? classes/pystring.pmc
? classes/pytuple.pmc
Index: classes/perlint.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/perlint.pmc,v
retrieving revision 1.79
diff -u -r1.79 perlint.pmc
--- classes/perlint.pmc 25 Aug 2004 08:03:18 -0000      1.79
+++ classes/perlint.pmc 11 Oct 2004 01:13:51 -0000
@@ -507,7 +507,6 @@
 MMD_DEFAULT: {
 
         FLOATVAL valf = VTABLE_get_number(INTERP, value);
-        INTVAL   vali = VTABLE_get_integer(INTERP, value);
         FLOATVAL d;
         INTVAL i;
         if (valf == 0.0) {
@@ -515,7 +514,7 @@
             return;
         }
         d = PMC_int_val(SELF)/valf;
-        i = PMC_int_val(SELF)/vali;
+        i = (INTVAL) d;
         if ((FLOATVAL)(i) == d)
             VTABLE_set_integer_native(INTERP, dest, i);
         else