Lines Matching refs:frag

79 my @frag;
83   push @frag, { file => $file, size => $size >> 11 };
100   my $frag = 0;
101   while ($frag < @frag) {
102     last if $off < $frag[$frag]->{size};
103     $off -= $frag[$frag++]->{size};
105   die "Cell beyond VOB data\n" unless $frag < @frag;
109   while ($cur_size > $frag[$frag]->{size} - $cur_off) {
110     push @files, $frag[$frag]->{file};
111     $cur_size -= $frag[$frag]->{size} - $cur_off;
113     die "Cell end beyond VOB data\n" unless ++$frag < @frag;
115   push @files, $frag[$frag]->{file};