]>
Commit | Line | Data |
---|---|---|
9564c161 JR |
1 | diff -urNp -x '*.orig' amanda-3.5.1.org/perl/Amanda/Xfer.swg amanda-3.5.1/perl/Amanda/Xfer.swg |
2 | --- amanda-3.5.1.org/perl/Amanda/Xfer.swg 2017-12-01 14:26:29.000000000 +0100 | |
3 | +++ amanda-3.5.1/perl/Amanda/Xfer.swg 2021-05-08 10:23:15.580125519 +0200 | |
4 | @@ -614,8 +614,6 @@ XFER_ELEMENT_SUBCLASS_OF(Amanda::Xfer::E | |
5 | %perlcode %{ | |
f5929ca0 JR |
6 | sub new { |
7 | my $pkg = shift; | |
8 | - # The C function adds the proper blessing -- this function | |
9 | - # just gets $pkg out of the way. | |
10 | C_CONSTRUCTOR(@_); | |
11 | } | |
9564c161 JR |
12 | %} |
13 | @@ -624,7 +622,6 @@ sub new { | |
f5929ca0 | 14 | %define OVERLOAD_REPR() |
9564c161 | 15 | %perlcode %{ |
f5929ca0 JR |
16 | use overload '""' => sub { $_[0]->repr(); }; |
17 | -# overload comparison, so users can ask if one obj == another | |
18 | use overload '==' => sub { Amanda::Xfer::same_elements($_[0], $_[1]); }; | |
19 | use overload '!=' => sub { not Amanda::Xfer::same_elements($_[0], $_[1]); }; | |
9564c161 | 20 | %} |