The R Project SVN R

Rev

Rev 32073 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 32073 Rev 37472
Line 19... Line 19...
19 
foreach $pkg (@pkgs) {
 19 
foreach $pkg (@pkgs) {
20 
    print "\n---- Building package $pkg from bundle $bundle -----";
 20 
    print "\n---- Building package $pkg from bundle $bundle -----";
21 
    open pkgdesc, "> $srcdir/$bundle/$pkg/DESCRIPTION"
21 
    open pkgdesc, "> $srcdir/$bundle/$pkg/DESCRIPTION"
22 
	|| die "cannot write $pkg/DESCRIPTION";
 22 
	|| die "cannot write $pkg/DESCRIPTION";
23 
    if (open pkgdescin, "< $srcdir/$bundle/$pkg/DESCRIPTION.in") {
 23 
    if (open pkgdescin, "< $srcdir/$bundle/$pkg/DESCRIPTION.in") {
24 
	while(<pkgdescin>) { print pkgdesc $_; }
 24 
	while(<pkgdescin>) { print pkgdesc $_ if $_ =~ /\S/; }
25 
	close pkgdescin;
 25 
	close pkgdescin;
26 
    } else {
 26 
    } else {
27 
	print "no DESCRIPTION.in found for package $pkg";
 27 
	print "no DESCRIPTION.in found for package $pkg";
28 
	print pkgdesc "Package: $pkg\n";
 28 
	print pkgdesc "Package: $pkg\n";
29 
    }
 29 
    }