Linux worldls-302.fr.planethoster.net 4.18.0-553.8.1.lve.el7h.x86_64 #1 SMP Thu Jul 4 15:19:33 UTC 2024 x86_64
LiteSpeed
Server IP : 10.185.0.203 & Your IP : 216.73.216.32
Domains :
Cant Read [ /etc/named.conf ]
User : gerathty
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
local /
share /
perl5 /
CGI /
File /
Delete
Unzip
Name
Size
Permission
Date
Action
Temp.pm
942
B
-r--r--r--
2017-04-06 16:36
Save
Rename
# 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.36'; 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;