~ubuntu-branches/ubuntu/wily/libclone-perl/wily-proposed

« back to all changes in this revision

Viewing changes to Clone.xs

  • Committer: Package Import Robot
  • Author(s): Xavier Guimard
  • Date: 2013-12-16 06:04:56 UTC
  • mfrom: (0.2.7)
  • Revision ID: package-import@ubuntu.com-20131216060456-2t1qn9ugk5w93ffk
Tags: 0.36-1
* Imported Upstream version 0.36
* Bump Standards-Version to 3.9.5
* Update debian/copyright years

Show diffs side-by-side

added added

removed removed

Lines of Context:
122
122
  SV *clone = ref;
123
123
  SV **seen = NULL;
124
124
  UV visible;
 
125
  int magic_ref = 0;
125
126
 
126
127
  if (!ref)
127
128
    {
136
137
#else
137
138
  visible = (SvREFCNT(ref) > 1) || (SvMAGICAL(ref) && mg_find(ref, '<'));
138
139
#endif
139
 
  int magic_ref = 0;
140
140
 
141
141
  TRACEME(("ref = 0x%x(%d)\n", ref, SvREFCNT(ref)));
142
142