[Cdd-commits] r448 - cdd/trunk/cdd

[CDD Subversion Commit]

Author: tille
Date: Sat Aug 11 08:02:48 2007
New Revision: 448

Modified:
   cdd/trunk/cdd/cdd-gen-control
Log:
Fixes the newline problem.


Modified: cdd/trunk/cdd/cdd-gen-control
==============================================================================
--- cdd/trunk/cdd/cdd-gen-control	(original)
+++ cdd/trunk/cdd/cdd-gen-control	Sat Aug 11 08:02:48 2007
@@ -272,7 +272,7 @@
         }
 	close(STUB) ;
     }
-print STDOUT "DEBUG: CDDNAME = $cddname\n" ;
+print STDERR "CDDNAME = $cddname\n" if $debug;
     unless ( $cddname ) { die "Unable to parse CDD name\n" ; }
     
     # if there is a file common/control append this to control file
@@ -512,12 +512,16 @@
 }
 
 sub print_available_packages {
+    print STDERR "Printing available packages\n" if $debug;
+    my @toprint = split /,\s*/,  join(',', @wanted) ;
     print STDOUT join("\n", @wanted),"\n";
 }
 
 sub print_all_packages {
     print STDERR "Printing all packages\n" if $debug;
-    print STDOUT join("\n", @wanted, keys %missing),"\n";
+    my @toprint = split /,\s*/, join(',', @wanted, keys %missing) ;
+    print STDOUT join("\n", @toprint),"\n";
+#    print STDOUT join("\n", @wanted, keys %missing),"\n";
 }
 
 sub print_missing_packages {