[people/teissler/ipfire-2.x.git] / src / patches / perl.patch

--- perl-5.8.4/lib/CGI.pm.old	2004-03-11 20:55:39.000000000 +0000
+++ perl-5.8.4/lib/CGI.pm	2003-09-30 18:10:42.000000000 +0100
@@ -328,20 +328,9 @@
   return $self;
 }
 
-# We provide a DESTROY method so that we can ensure that
-# temporary files are closed (via Fh->DESTROY) before they
-# are unlinked (via CGITempFile->DESTROY) because it is not
-# possible to unlink an open file on Win32. We explicitly
-# call DESTROY on each, rather than just undefing them and
-# letting Perl DESTROY them by garbage collection, in case the
-# user is still holding any reference to them as well.
-sub DESTROY {
-  my $self = shift;
-  foreach my $href (values %{$self->{'.tmpfiles'}}) {
-    $href->{hndl}->DESTROY if defined $href->{hndl};
-    $href->{name}->DESTROY if defined $href->{name};
-  }
-}
+# We provide a DESTROY method so that the autoloader
+# doesn't bother trying to find it.
+sub DESTROY { }
 
 sub r {
   my $self = shift;
Commit	Line	Data
cd1a2927 MT	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;