+--- 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 {
+ 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 @@
+ %define OVERLOAD_REPR()
+ %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]); };
+ }