---- amanda-3.3.6/perl/Amanda/Xfer.swg.orig 2015-12-27 11:44:42.539670320 +0100
-+++ amanda-3.3.6/perl/Amanda/Xfer.swg 2015-12-27 11:47:02.104286963 +0100
-@@ -533,8 +533,6 @@
- %perlcode {
+diff -urNp -x '*.orig' amanda-3.5.1.org/perl/Amanda/Xfer.swg amanda-3.5.1/perl/Amanda/Xfer.swg
+--- amanda-3.5.1.org/perl/Amanda/Xfer.swg 2017-12-01 14:26:29.000000000 +0100
++++ amanda-3.5.1/perl/Amanda/Xfer.swg 2021-05-08 10:23:15.580125519 +0200
+@@ -614,8 +614,6 @@ XFER_ELEMENT_SUBCLASS_OF(Amanda::Xfer::E
+ %perlcode %{
sub new {
my $pkg = shift;
- # The C function adds the proper blessing -- this function
- # just gets $pkg out of the way.
C_CONSTRUCTOR(@_);
}
- }
-@@ -543,7 +543,6 @@
+ %}
+@@ -624,7 +622,6 @@ sub new {
%define OVERLOAD_REPR()
- %perlcode {
+ %perlcode %{
use overload '""' => sub { $_[0]->repr(); };
-# overload comparison, so users can ask if one obj == another
use overload '==' => sub { Amanda::Xfer::same_elements($_[0], $_[1]); };
use overload '!=' => sub { not Amanda::Xfer::same_elements($_[0], $_[1]); };
- }
+ %}