+ (* Create an undef value and test it. *)
+ let undef = Perl.sv_undef () in
+ printf "sv_is_undef (undef) = %s\n"
+ (string_of_bool (Perl.sv_is_undef undef));
+
+ (* Perform a full collection - good way to find GC/allocation bugs. *)
+ Gc.full_major ()