"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/SourceFilter/NiceSlice.pm" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

NiceSlice.pm  (PDL-2.077):NiceSlice.pm  (PDL-2.078)
skipping to change at line 400 skipping to change at line 400
$oppos, 1, # LEFT DEL $oppos, 1, # LEFT DEL
$oppos+1, $rd1pos-$oppos-1, # STR/PAT $oppos+1, $rd1pos-$oppos-1, # STR/PAT
$rd1pos, 1, # RIGHT DEL $rd1pos, 1, # RIGHT DEL
$modpos, 0, # NO 2ND LDEL $modpos, 0, # NO 2ND LDEL
$modpos, 0, # NO 2ND STR $modpos, 0, # NO 2ND STR
$modpos, 0, # NO 2ND RDEL $modpos, 0, # NO 2ND RDEL
$modpos, $endpos-$modpos, # MODIFIERS $modpos, $endpos-$modpos, # MODIFIERS
$endpos, $textlen-$endpos, # REMAINDER $endpos, $textlen-$endpos, # REMAINDER
); );
} }
unless ($$textref =~ m{\G(\b(?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<(?!=))}g c) unless ($$textref =~ m{\G(\b(?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<(?=[a-zA -Z]|\s*['"`;,]))}gc)
{ {
Text::Balanced::_failmsg q{No quotelike operator found after prefix at " } . Text::Balanced::_failmsg q{No quotelike operator found after prefix at " } .
substr($$textref, pos($$textref), 20) . substr($$textref, pos($$textref), 20) .
q{..."}, q{..."},
pos $$textref; pos $$textref;
pos $$textref = $startpos; pos $$textref = $startpos;
return; return;
} }
my $op = $1; my $op = $1;
$preld1pos = pos($$textref); $preld1pos = pos($$textref);
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)