/dports/security/libwhisker/libwhisker2-2.5/src/ |
H A D | html.pl | 64 return if ( !( defined $dataref && ref($dataref) ) ); 72 $DR = $dataref; 74 $LEN = length($$dataref); 77 $cc = substr( $$dataref, $c, 1 ); 118 $$dataref, 157 pos($$dataref) = $c; 166 $c = pos($$dataref) - 1; 176 pos($$dataref) = $c; 206 pos($$dataref) = $c; 211 $start = pos($$dataref) - 1; [all …]
|
/dports/www/p5-HTTP-Proxy/HTTP-Proxy-0.304/lib/HTTP/Proxy/BodyFilter/ |
H A D | lines.pm | 25 my ( $self, $dataref, $message, $protocol, $buffer ) = @_; 32 $$dataref =~ /^(.*\n\n)([^\n].*)/sg; 33 ( $$dataref, $$buffer) = defined $1 ? ($1, $2) : ("", $$dataref); 36 my $idx = length($$dataref) - length($$dataref) % $$eol; 37 $$buffer = substr( $$dataref, $idx ); 38 $$dataref = substr( $$dataref, 0, $idx ); 41 my $idx = rindex( $$dataref, $eol ); 43 $$buffer = $$dataref; # keep everything for later 44 $$dataref = ''; 48 $$buffer = substr( $$dataref, $idx ); [all …]
|
H A D | htmltext.pm | 17 my ( $self, $dataref, $message, $protocol, $buffer ) = @_; 19 my $pos = pos($$dataref) = 0; 22 $pos = pos($$dataref); 23 $$dataref =~ /\G<\s*(?:script|style)[^>]*>/cgi # protect 25 $$dataref =~ /\G<\s*\/\s*(?:script|style)[^>]*>/cgi # unprotect 30 $$dataref =~ /\G<!--/cg && redo SCAN; # comment 31 $$dataref =~ /\G>/cg && redo SCAN; # lost > 33 $$dataref =~ /\G(?:<[^>]*>)+/cg && redo SCAN; # tags 35 $$dataref =~ /\G([^<>&]+)/cg && goto TEXT; # text 42 substr( $$dataref, $pos, length($1), $_ ); [all …]
|
H A D | tags.pm | 10 my ( $self, $dataref, $message, $protocol, $buffer ) = @_; 13 my $idx = rindex( $$dataref, '<' ); 14 if ( $idx > rindex( $$dataref, '>' ) ) { 15 $$buffer = substr( $$dataref, $idx ); 16 $$dataref = substr( $$dataref, 0, $idx );
|
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/lib/Image/MetaData/JPEG/ |
H A D | Record.pm | 80 my ($pkg, $akey, $atype, $dataref, $count, $endian) = @_; 82 $pkg->die('Reference not found') unless ref $dataref; 93 my $current = length($$dataref); 114 $cat =~ /S|p/ ? $$dataref : 189 return undef unless defined $dataref; 302 my ($this, $n, $dataref, $endian) = @_; 306 my @tokens = unpack "a$n" x (length($$dataref)/$n), $$dataref; 357 my ($this, $n, $dataref, $endian) = @_; 361 my @tokens = unpack "a$n" x (length($$dataref)/$n), $$dataref; 420 my $dataref = [all …]
|
H A D | Segment.pm | 74 my ($pkg, $name, $dataref, $flag) = @_; 78 dataref => defined $dataref ? $dataref : \ (my $ns = ''), 85 $this->die('Invalid data reference') if defined $dataref && ! ref $dataref; 202 my $old_content = $this->{dataref}; 205 $this->{dataref} = \ (my $ns = ''); 224 $this->{dataref} = $old_content; } 365 sub size { return length ${$_[0]{dataref}}; } 385 ${$this->{dataref}} .= $$addref; 528 unless (ref $dataref) { 530 my $offset = $dataref; [all …]
|
/dports/emulators/qemu42/qemu-4.2.1/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu5/qemu-5.2.0/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu-powernv/qemu-powernv-3.0.50/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/sysutils/syslinux/syslinux-6.03/gpxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/net/ipxe/ipxe-2265a65/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu-utils/qemu-4.2.1/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu-guest-agent/qemu-5.0.1/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu/qemu-6.2.0/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/emulators/qemu60/qemu-6.0.0/roms/ipxe/src/util/ |
H A D | swapdevids.pl | 15 my ($dataref, $loc1, $loc2) = @_; 18 $t = substr($$dataref, $loc1, 1); 19 substr($$dataref, $loc1, 1) = substr($$dataref, $loc2, 1); 20 substr($$dataref, $loc2, 1) = $t; 25 my ($dataref, $loc) = @_; 27 return (sprintf "%02x %02x %02x", unpack('C3', substr($$dataref, $loc, 3)));
|
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/t/ |
H A D | JPEG_5_exif_Thumbnail.t | 7 my ($image, $image2, $dataref, $dataref2, $hash, $hash2, 25 $dataref = $image->get_Exif_data('THUMBNAIL'); 26 isnt( $dataref, undef, "Thumbnail data found" ); 29 is( ref $dataref, 'SCALAR', "... as a reference to a scalar" ); 32 $thumb = newimage($dataref); 40 $thumb->save($dataref); 41 $thumb = newimage($dataref); 45 $result = $image->set_Exif_data($dataref, 'THUMBNAIL'); 53 is_deeply( $dataref, $dataref2, "... it containes the new data block" ); 61 is( $$hash2{$name}[0], length $$dataref,"... and is correct"); [all …]
|
/dports/math/octave-forge-ncarray/ncarray/inst/ |
H A D | test_ncarray_nan.m | 15 dataref = randn(220,144,3); variable 16 %dataref(rand(size(dataref)) > 0.7) = NaN; 17 dataref(50:80,30:90,1:2) = NaN; 21 ncarray_example_file(files{i},dataref(:,:,i)); 26 reddataref = nanmean(dataref,3); 30 reddataref = nansum(dataref,3); 34 reddataref = nanvar(dataref,[],3); 39 reddataref = nanstd(dataref,[],3);
|
/dports/graphics/p5-Image-MetaData-JPEG/Image-MetaData-JPEG-0.153/lib/Image/MetaData/JPEG/access/ |
H A D | app1_exif.pl | 462 my ($this, $dataref) = @_; 467 return { 'ERROR' => 'argument is not a reference' } unless ref $dataref; 470 if ('Image::MetaData::JPEG' eq ref $dataref) { 471 my $r = ""; $dataref->save(\ $r); $dataref = \ $r; $type = 'JPEG'; } 473 return { 'ERROR' => 'not a good reference' } if ref $dataref ne 'SCALAR'; 477 $type = 'NONE' if length $$dataref == 0; 478 $type = 'JPEG' if ! $type && Image::MetaData::JPEG->new($dataref, ''); 500 ('ThumbnailData', $UNDEF, $dataref, length $$dataref) if $dataref; 505 'JPEGInterchangeFormatLength' => length $$dataref };
|
/dports/science/qmcpack/qmcpack-3.11.0/utils/ |
H A D | setup-qmc.pl | 2884 my $dataref = shift; 2920 return $dataref; 2929 my $dataref = shift; 2947 return $dataref; 2957 my $dataref = shift; 2989 my $dataref = shift; 3023 my $dataref = shift; 3055 my $dataref = shift; 3073 return $dataref; 3085 my $dataref = shift; [all …]
|
/dports/databases/p5-DBIx-Class-FrozenColumns/DBIx-Class-FrozenColumns-0.09/lib/DBIx/Class/ |
H A D | FrozenColumns.pm | 427 my ($this, $dataref) = @_; 428 my $data = defined $$dataref ? eval {thaw($$dataref)} || {} : {}; 445 my ($this, $dataref) = @_; 447 my $data = defined $$dataref ? eval "$$dataref" || {} : {}; 461 my ($this, $dataref) = @_; 462 my $data = defined $$dataref ? eval {$json->decode($$dataref)} || {} : {};
|
/dports/devel/p5-Cache/Cache-2.11/lib/Cache/Memory/ |
H A D | Entry.pm | 187 my $dataref = $entry->{data}; 193 my $orig_size = length($$dataref); 196 $entry->{handlelock} = $dataref; 198 return Cache::IOString->new($dataref, $mode, 202 return Cache::IOString->new($dataref, $mode); 237 my $dataref = $iostring->sref(); 244 if (defined $entry->{handlelock} and $entry->{handlelock} == $dataref) { 258 $entry->{data} = $dataref;
|
/dports/devel/cgit/cgit-1.2.3/git/vcs-svn/ |
H A D | fast_export.c | 57 void fast_export_modify(const char *path, uint32_t mode, const char *dataref) in fast_export_modify() argument 60 if (!dataref) { in fast_export_modify() 64 printf("M %06"PRIo32" %s ", mode, dataref); in fast_export_modify() 86 void fast_export_note(const char *committish, const char *dataref) in fast_export_note() argument 88 printf("N %s %s\n", dataref, committish); in fast_export_note() 261 struct strbuf *dataref) in parse_ls_response() argument 297 strbuf_add(dataref, response, tab - response); in parse_ls_response() 302 uint32_t *mode, struct strbuf *dataref) in fast_export_ls_rev() argument 305 return parse_ls_response(get_response_line(), mode, dataref); in fast_export_ls_rev() 308 int fast_export_ls(const char *path, uint32_t *mode, struct strbuf *dataref) in fast_export_ls() argument [all …]
|
/dports/www/p5-CGI-Session/CGI-Session-4.48/lib/CGI/ |
H A D | Session.pm | 67 my $dataref = $self->{_DATA}; 68 unless ($dataref->{_SESSION_ID}) { 84 $dataref->{_SESSION_ID} = $id; 85 $dataref->{_SESSION_CTIME} = $dataref->{_SESSION_ATIME} = time(); 86 $dataref->{_SESSION_REMOTE_ADDR} = $ENV{REMOTE_ADDR} || ""; 95 *param_hashref = \&dataref; 97 sub dataref { $_[0]->{_DATA} } subroutine 105 sub id { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_ID} : undef } 108 sub atime { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_ATIME} : undef } 111 sub ctime { return defined($_[0]->dataref) ? $_[0]->dataref->{_SESSION_CTIME} : undef } [all …]
|
/dports/www/p5-HTTP-Lite/HTTP-Lite-2.44/t/ |
H A D | original-tests.t | 268 my ( $self, $dataref, $cbargs ) = @_; 269 $cbbytes += length($$dataref); 270 return $dataref; 286 my ( $self, $dataref, $cbargs ) = @_; 287 $cbbytes += length($$dataref); 301 my ( $self, $mode, $dataref, @args ) = @_; 302 $cbbytes += length($$dataref); 305 return $dataref;
|
/dports/sysutils/cmogstored/cmogstored-1.8.1/test/ |
H A D | mogilefs_integration.perl | 147 my $dataref = $mogc->get_file_data("empty"); 148 is($$dataref, "", "returned an empty file"); 156 my $dataref = $mogc->get_file_data("something"); 157 is($$dataref, "something", "returned a 'something'"); 171 my $dataref = $mogc->get_file_data("largefile"); 172 is($$dataref, $expect, "returned expected data");
|