cvs commit: ponie/perl sv.c

cvsuser     04/11/03 14:29:19

  Modified:    perl     sv.c
  Log:
  Add an assertion.
  
  Revision  Changes    Path
  1.50      +1 -0      ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.49
  retrieving revision 1.50
  diff -u -r1.49 -r1.50
  --- sv.c	3 Nov 2004 20:46:11 -0000	1.49
  +++ sv.c	3 Nov 2004 22:29:19 -0000	1.50
  @@ -1113,6 +1113,7 @@
   }
   
   char** Perl_macro_SvPVX (pTHX_ SV *sv) {
  +  assert (!SvROK(sv));
     return Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_PVX);
   }