"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "test.pl" between
lesspipe-1.85.tar.gz and lesspipe-1.86.tar.gz

About: lesspipe is an input filter for the pager "less" to view files with binary content, compressed files, archives and files contained in archives.

test.pl  (lesspipe-1.85):test.pl  (lesspipe-1.86)
skipping to change at line 50 skipping to change at line 50
print "result:$res" if $debug; print "result:$res" if $debug;
$res = "NOT found: $1"; $res = "NOT found: $1";
$ok = 1; $ok = 1;
} elsif ( $res ) { } elsif ( $res ) {
print "result:$res" if $debug; print "result:$res" if $debug;
my @res = split /\n/, $res; my @res = split /\n/, $res;
shift @res if $res[0] =~ /^==>/; shift @res if $res[0] =~ /^==>/;
$res[0] =~ s/^pst0$//; $res[0] =~ s/^pst0$//;
shift @res while @res and $res[0] =~ /^\s*$/; shift @res while @res and $res[0] =~ /^\s*$/;
# special case for directory listing # special case for directory listing
$res[0] = 'test' if $res =~ /-rw-r--r--.*test/; $res[0] = 'test' if $res =~ /-rw-.*test/;
$ok = $res[0] =~ /^\s*(\e\[36m)?test(\e\[0m)?\s*$/ if $res[0]; $ok = $res[0] =~ /^\s*(\e\[36m)?test(\e\[0m)?\s*$/ if $res[0];
# special case for nroff # special case for nroff
$ok = $res[0] =~ s/^test \(1\)\s+.*/test/ if $res[0] and ! $ok; $ok = $res[0] =~ s/^test \(1\)\s+.*/test/ if $res[0] and ! $ok;
# special case for perl storable # special case for perl storable
$ok = $res[0] =~ s/^\$VAR1 = \\'test';$/test/ if $res[0] and ! $ok; $ok = $res[0] =~ s/^\$VAR1 = \\'test';$/test/ if $res[0] and ! $ok;
# special case for batcat
$ok = $res[0] = 'test' if $res[3] =~ /test/;
# special case for mp3 # special case for mp3
if ($res[1] and ! $ok) { if ($res[1] and ! $ok) {
$ok = $res[1] =~ s/.*Title.*:\s+test\b.*/test/; $ok = $res[1] =~ s/.*Title.*:\s+test\b.*/test/;
$res[0] = $res[1] if $ok; $res[0] = $res[1] if $ok;
} }
$res = $res[0] if $res[0]; $res = $res[0] if $res[0];
$lines = $#res; $lines = $#res;
} }
if ( $ok ) { if ( $ok ) {
$res =~ s/test/ok/ if $ok; $res =~ s/test/ok/ if $ok;
 End of changes. 2 change blocks. 
1 lines changed or deleted 3 lines changed or added

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