← Back to branch summary

~pi-rho/+junk/libyaml-appconfig-perl-debian

« back to all changes in this revision

Viewing changes to debian/patches/clone.patch

  • Committer: pi-rho
  • Date: 2014-03-16 23:21:45 UTC
  • Revision ID: ubuntu@tyr.cx-20140316232145-b751710e45hbgvh2
move to bzr-builddeb layout

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/patches/clone.patch
4
4
Last modified: 2011-12-28
5
5
--- a/lib/YAML/AppConfig.pm
6
6
+++ b/lib/YAML/AppConfig.pm
7
 
@@ -2,7 +2,7 @@
 
7
@@ -2,7 +2,7 @@ package YAML::AppConfig;
8
8
 use strict;
9
9
 use warnings;
10
10
 use Carp;
13
13
 
14
14
 ####################
15
15
 # Global Variables
16
 
@@ -28,7 +28,7 @@
 
16
@@ -28,7 +28,7 @@ sub new {
17
17
         my $load = eval "\\&$self->{yaml_class}::Load";
18
18
         $self->{config} = $load->( $self->{string} );
19
19
     } elsif ( exists $self->{object} ) {
22
22
     } else {
23
23
         $self->{config} = {};
24
24
     }
25
 
@@ -113,7 +113,7 @@
 
25
@@ -113,7 +113,7 @@ sub _resolve_refs {
26
26
         $value = $self->_resolve_scalar($value);
27
27
     }
28
 
     elsif ( ref($value) eq 'HASH' ) {
 
28
     elsif (ref $value eq 'HASH' ) {
29
29
-        $value = dclone($value);
30
30
+        $value = clone($value);
31
31
         my @hidden = $self->_push_scope($value);
32
32
         for my $key ( keys %$value ) {
33
33
             $value->{$key} = $self->_resolve_refs( $value->{$key} );
34
 
@@ -122,7 +122,7 @@
 
34
@@ -122,7 +122,7 @@ sub _resolve_refs {
35
35
         return $value;
36
36
     }
37
 
     elsif ( ref($value) eq 'ARRAY' ) {
 
37
     elsif (ref $value eq 'ARRAY' ) {
38
38
-        $value = dclone($value);
39
39
+        $value = clone($value);
40
40
         for my $item (@$value) {
41
41
             $item = $self->_resolve_refs( $item );
42
42
         }
43
 
@@ -146,7 +146,7 @@
 
43
@@ -146,7 +146,7 @@ sub _resolve_refs {
44
44
 # hidden variables are returned.
45
45
 sub _push_scope {
46
46
     my ( $self, $scope ) = @_;
51
51
         if ( exists $self->{seen}->{$key} ) {
52
52
--- a/META.yml
53
53
+++ b/META.yml
54
 
@@ -6,7 +6,7 @@
55
 
 installdirs:  site
 
54
@@ -20,7 +20,7 @@ no_index:
 
55
     - inc
56
56
 requires:
57
 
     Carp:                          0
58
 
-    Storable:                      0
59
 
+    Clone:                         0
60
 
     UNIVERSAL:                     0
61
 
     YAML:                          0.38
62
 
     YAML::Syck:                    0
 
57
   Carp: '0'
 
58
-  Storable: '0'
 
59
+  Clone: '0'
 
60
   YAML: '0.38'
 
61
   perl: '5.006000'
 
62
   strict: '0'
63
63
--- a/Makefile.PL
64
64
+++ b/Makefile.PL
65
 
@@ -9,7 +9,7 @@
66
 
     VERSION_FROM => 'lib/YAML/AppConfig.pm',
67
 
     PREREQ_PM    => {
 
65
@@ -12,7 +12,7 @@ my %WriteMakefileArgs = (
68
66
         get_yamls(),
 
67
         'strict'     => 0,
 
68
         'warnings'   => 0,
69
69
-        'Storable'   => 0,
70
70
+        'Clone'      => 0,
71
71
         'Carp'       => 0,
72
 
         'UNIVERSAL'  => 0,
73
72
     },
 
73
     TEST_REQUIRES => {
74
74
--- a/t/03-vars.t
75
75
+++ b/t/03-vars.t
76
 
@@ -2,7 +2,7 @@
 
76
@@ -2,7 +2,7 @@ use strict;
77
77
 use warnings;
78
78
 use Test::More tests => 56;
79
79
 do "t/lib/helpers.pl";
84
84
 
85
85
--- a/t/05-scoping.t
86
86
+++ b/t/05-scoping.t
87
 
@@ -2,7 +2,7 @@
 
87
@@ -2,7 +2,7 @@ use strict;
88
88
 use warnings;
89
89
 use Test::More tests => 9;
90
90
 do "t/lib/helpers.pl";