]>
Commit | Line | Data |
---|---|---|
f5929ca0 JR |
1 | --- amanda-3.3.6/perl/Amanda/Xfer.swg.orig 2015-12-27 11:44:42.539670320 +0100 |
2 | +++ amanda-3.3.6/perl/Amanda/Xfer.swg 2015-12-27 11:47:02.104286963 +0100 | |
3 | @@ -533,8 +533,6 @@ | |
4 | %perlcode { | |
5 | sub new { | |
6 | my $pkg = shift; | |
7 | - # The C function adds the proper blessing -- this function | |
8 | - # just gets $pkg out of the way. | |
9 | C_CONSTRUCTOR(@_); | |
10 | } | |
11 | } | |
12 | @@ -543,7 +543,6 @@ | |
13 | %define OVERLOAD_REPR() | |
14 | %perlcode { | |
15 | use overload '""' => sub { $_[0]->repr(); }; | |
16 | -# overload comparison, so users can ask if one obj == another | |
17 | use overload '==' => sub { Amanda::Xfer::same_elements($_[0], $_[1]); }; | |
18 | use overload '!=' => sub { not Amanda::Xfer::same_elements($_[0], $_[1]); }; | |
19 | } |