📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 00:44:50
📂
/ (Root)
/
usr
/
share
/
perl5
/
CGI
/
File
📍 /usr/share/perl5/CGI/File
🔄 Refresh
✏️
Editing: Temp.pm
Read Only
# this is a back compatibility wrapper around File::Temp. DO NOT # use this package outside of CGI, i won't provide any help if # you use it directly and your code breaks horribly. package CGI::File::Temp; $CGI::File::Temp::VERSION = '4.35'; use parent File::Temp; use parent Fh; my $appease_cpants_kwalitee = q/ use strict; use warnings; #/; use overload '""' => \&asString, 'cmp' => \&compare, 'fallback'=>1; # back compatibility method since we now return a File::Temp object # as the filehandle (which isa IO::Handle) so calling ->handle on # it will fail. FIXME: deprecate this method in v5+ sub handle { return shift; }; sub compare { my ( $self,$value ) = @_; return "$self" cmp $value; } sub _mp_filename { my ( $self,$filename ) = @_; ${*$self}->{ _mp_filename } = $filename if $filename; return ${*$self}->{_mp_filename}; } sub asString { my ( $self ) = @_; return $self->_mp_filename; } 1;
💾 Save Changes
❌ Cancel