]>
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; |