File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Net/WebSocket/X/BadHeader.pm
Back
package Net::WebSocket::X::BadHeader; use strict; use warnings; use parent qw( Net::WebSocket::X::Base ); sub _new { my ($class, $name => $value, $why) = @_; my @args = ( name => $name, value => $value, why => $why, ); my $value_str = defined($value) ? $value : q<>; #Perl 5.10 still warns on length(undef) my $str = defined($why) && length($why) ? "Bad “$name” header ($value_str): $why" : "Bad “$name” header ($value_str)"; return $class->SUPER::_new( $str, @args ); } 1;
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings