[ViewVC] Diff of: cvs/Compress-LZF/LZF.xs

Comparing Compress-LZF/LZF.xs (file contents):
Revision 1.4 by root, Thu Sep 27 20:05:38 2001 UTC vs.
Revision 1.8 by root, Wed Feb 27 20:51:21 2002 UTC

         if (!SvOK (sv))
           XPUSHs (sv_2mortal (newSVpvn ("\02", 1))); /* 02 == MAGIC_undef */
         else if (SvTYPE(sv) != SVt_IV
             && SvTYPE(sv) != SVt_NV
+            && SvTYPE(sv) != SVt_PV
-            && SvTYPE(sv) != SVt_PV) /* mstore */
+            && SvTYPE(sv) != SVt_PVMG) /* mstore */
           {
             if (!storable_mstore)
               need_storable ();
             PUSHMARK (SP);
 sthaw(sv)
 	SV *	sv
         PROTOTYPE: $
         PPCODE:
+        SvGETMAGIC (sv);
-        if (IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI))
+        if (SvPOK (sv) && IN_RANGE (SvPV_nolen (sv)[0], MAGIC_LO, MAGIC_HI))
           {
             switch (SvPVX (sv)[0])
               {
                 case MAGIC_undef:
                   XPUSHs (sv_2mortal (NEWSV (0, 0)));
                   if (1 != call_sv ((SV *)storable_mretrieve, G_SCALAR))
                     croak ("Storable::mstore didn't return a single scalar");
                   SPAGAIN;
-                  XPUSHs (POPs); /* this is a nop, hope the compiler also knows this */
+                  /*XPUSHs (POPs); this is a nop, hopefully */
                   break;
                 default:
                   croak ("Compress::LZF::sthaw(): invalid data, maybe you need a newer version of Compress::LZF?");

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines