File: perl5.20-sv_magical.patch

package info (click to toggle)
libdevel-size-perl 0.79-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 436 kB
  • ctags: 730
  • sloc: perl: 666; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 519 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Description: *** FIXME ***
Origin: https://rt.cpan.org/Public/Bug/Display.html?id=88180
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=88180
Bug-Debian: http://bugs.debian.org/750235
Author: zefram [...] fysh.org
Last-Update: 2014-07-18

--- a/Size.xs	2013-05-10 12:35:23.000000000 +0000
+++ b/Size.xs	2013-08-27 14:52:53.000000000 +0000
@@ -707,7 +707,7 @@
   }
   st->total_size += sizeof(SV) + body_sizes[type];
 
-  if (type >= SVt_PVMG) {
+  if (SvMAGICAL(thing)) {
       magic_size(aTHX_ thing, st);
   }