[Husky-cvs]hpt/misc pretty.pl,1.5,1.6

[<ns...@us...>]

Update of /cvsroot/husky/hpt/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv7737

Modified Files:
	pretty.pl 
Log Message:
Try to fix error with "-pl" option.


Index: pretty.pl
===================================================================
RCS file: /cvsroot/husky/hpt/misc/pretty.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- pretty.pl	21 Apr 2003 10:30:02 -0000	1.5
+++ pretty.pl	19 May 2003 13:14:24 -0000	1.6
@@ -3,6 +3,9 @@
 # $Id$
 #
 # $Log$
+# Revision 1.6  2003/05/19 13:14:24  nssoft
+# Try to fix error with "-pl" option.
+#
 # Revision 1.5  2003/04/21 10:30:02  nssoft
 # Bugfix
 #
@@ -133,7 +136,7 @@
       &max(3, $file);
       &max(4, $rest);
       &max(5, $desc);
-      if ($pl and $file eq "passthrough") {
+      if ($pl and $file=~/passthrough/i) {
         $plines[$pln] = [ (1, $type, $name, $file, $rest, $desc, $links) ];
         print ".";
         $pln++;
@@ -150,7 +153,7 @@
 }
 print "\n";
 
-if ($pl) {for ($i=0;$i<$pln;$i++) {$lines[$ln] = $plines[$i]; $ln++;} }
+if ($pl) {for ($i=0;$i<$pln;$i++) {$lines[$ln+1] = $plines[$i]; $ln++;} }
 
 sub max() {
         my ($i, $s);