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
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.
16 - foreach my $href (values %{$self->{'.tmpfiles'}}) {
17 - $href->{hndl}->DESTROY if defined $href->{hndl};
18 - $href->{name}->DESTROY if defined $href->{name};
21 +# We provide a DESTROY method so that the autoloader
22 +# doesn't bother trying to find it.