swig.patch

   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 %{
   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  }
  12  %}
  13 @@ -624,7 +622,6 @@ sub new {
  14  %define OVERLOAD_REPR()
  15  %perlcode %{
  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]); };
  20  %}