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

Comparing Compress-LZF/LZF.xs (file contents):
Revision 1.1 by root, Thu Sep 27 18:36:34 2001 UTC vs.
Revision 1.3 by root, Thu Sep 27 19:51:26 2001 UTC

 #include "patchlevel.h"
 #if (PATCHLEVEL == 4) || ((PATCHLEVEL == 5) && (SUBVERSION < 55))
 static STRLEN nolen_na;
 # define SvPV_nolen(sv) SvPV ((sv), nolen_na)
 #endif
+#if PATCHLEVEL < 6
+# define call_sv perl_call_sv
+#endif
 #include "lzf_c.c"
 #include "lzf_d.c"
 /* we re-use the storable header for our purposes */
 }
 static void
 need_storable(void)
 {
+#if PATCHLEVEL < 6
+  perl_eval_pv ("require Storable;", 1);
+#else
   load_module (PERL_LOADMOD_NOIMPORT, newSVpv ("Storable", 0), Nullsv);
+#endif
   storable_mstore    = GvCV (gv_fetchpv ("Storable::mstore"   , TRUE, SVt_PVCV));
   storable_mretrieve = GvCV (gv_fetchpv ("Storable::mretrieve", TRUE, SVt_PVCV));
 }
         sfreeze_cr = 1
         sfreeze_c  = 2
         PROTOTYPE: $
         PPCODE:
-        if (SvROK (sv)) /* mstore */
+        if (SvTYPE(sv) != SVt_IV
+            && SvTYPE(sv) != SVt_NV
+            && SvTYPE(sv) != SVt_PV) /* mstore */
           {
             if (!storable_mstore)
               need_storable ();
             PUSHMARK (SP);

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