src/patches/perl.patch

   1 --- perl-5.8.4/lib/CGI.pm.old   2004-03-11 20:55:39.000000000 +0000
   2 +++ perl-5.8.4/lib/CGI.pm       2003-09-30 18:10:42.000000000 +0100
   3 @@ -328,20 +328,9 @@
   4    return $self;
   5  }
   6
   7 -# We provide a DESTROY method so that we can ensure that
   8 -# temporary files are closed (via Fh->DESTROY) before they
   9 -# are unlinked (via CGITempFile->DESTROY) because it is not
  10 -# possible to unlink an open file on Win32. We explicitly
  11 -# call DESTROY on each, rather than just undefing them and
  12 -# letting Perl DESTROY them by garbage collection, in case the
  13 -# user is still holding any reference to them as well.
  14 -sub DESTROY {
  15 -  my $self = shift;
  16 -  foreach my $href (values %{$self->{'.tmpfiles'}}) {
  17 -    $href->{hndl}->DESTROY if defined $href->{hndl};
  18 -    $href->{name}->DESTROY if defined $href->{name};
  19 -  }
  20 -}
  21 +# We provide a DESTROY method so that the autoloader
  22 +# doesn't bother trying to find it.
  23 +sub DESTROY { }
  24
  25  sub r {
  26    my $self = shift;