The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 14
Clone.pm 92
Clone.xs 11
META.json 11
META.yml 11
t/08fieldhash.t 00
6 files changed (This is a version diff) 139
@@ -1,7 +1,10 @@
 Revision history for Perl module Clone
 
+0.36 2013-12-07 17:36:04  garu
+  - fixed compilation issue on AIX and C89 (GAAS)
+
 0.35 2013-09-05 13:26:54  garu
-  - SV's can be NULL (shit happens) (fixes RT86217) (Tux)
+  - SV's can be NULL (shit happens) (fixes RT86217) (HMBRAND)
   - making tests compatible with older versions of Test::More (GARU)
 
 0.34 2012-12-09 14:46:09  garu
@@ -9,20 +9,13 @@ require DynaLoader;
 require AutoLoader;
 
 @ISA = qw(Exporter DynaLoader);
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
 @EXPORT = qw();
 @EXPORT_OK = qw( clone );
 
-$VERSION = '0.35';
+$VERSION = '0.36';
 
 bootstrap Clone $VERSION;
 
-# Preloaded methods go here.
-
-# Autoload methods go after =cut, and are processed by the autosplit program.
-
 1;
 __END__
 
@@ -77,7 +70,7 @@ with 3 or less levels, while dclone() can be faster for structures
 
 =head1 COPYRIGHT
 
-Copyright 2001-2012 Ray Finch. All Rights Reserved.
+Copyright 2001-2013 Ray Finch. All Rights Reserved.
 
 This module is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
@@ -122,6 +122,7 @@ sv_clone (SV * ref, HV* hseen, int depth)
   SV *clone = ref;
   SV **seen = NULL;
   UV visible;
+  int magic_ref = 0;
 
   if (!ref)
     {
@@ -136,7 +137,6 @@ sv_clone (SV * ref, HV* hseen, int depth)
 #else
   visible = (SvREFCNT(ref) > 1) || (SvMAGICAL(ref) && mg_find(ref, '<'));
 #endif
-  int magic_ref = 0;
 
   TRACEME(("ref = 0x%x(%d)\n", ref, SvREFCNT(ref)));
 
@@ -46,5 +46,5 @@
          "url" : "http://github.com/garu/Clone"
       }
    },
-   "version" : "0.35"
+   "version" : "0.36"
 }
@@ -22,4 +22,4 @@ resources:
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Clone
   license: http://dev.perl.org/licenses/
   repository: http://github.com/garu/Clone
-version: 0.35
+version: 0.36
diff --git a/var/tmp/source/GARU/Clone-0.35/Clone-0.35/t/08fieldhash.t b/var/tmp/source/GARU/Clone-0.36/Clone-0.36/t/08fieldhash.t
old mode 100644
new mode 100755