* fix a few errors, include Text::Wrap;

diff --git a/cran2deb b/cran2deb
index f6f6da8eacb4c069176930cd6894b72a706ed14c..cfd91a1f3bc8dfbbaf8dc989fb73d6062f97d11f 100755 (executable)
--- a/cran2deb
+++ b/cran2deb
@@ -52,6 +52,8 @@ Display this manual.
 use Cwd;
 use POSIX qw(strftime);
 
+use Text::Wrap qw(wrap);
+
 use vars qw($DEBUG);
 
 my %options = (debug           => 0,
@@ -344,10 +346,9 @@ EOF
 sub write_changelog {
     my ( $pkg, $maintainer) = @_;
 
-    my $dbfile = $dbdir . "/" . $pkg->{DebName};
     my $file   = $pkg->{BuildDir} . "/debian/changelog";
 
-    print "generating changelog ...\n" if $main::verbose;
+    print "generating changelog ...\n" if $DEBUG;
 
     my $changelog = IO::File->new($file,'w') or die "unable to open $file for writing: $!";
 
@@ -378,7 +379,7 @@ my $description = '';
 }
 $description =~ s/^\#[^\n]+//g;
 $description =~ s/\n\s+//g;
-my %description = map {/^([^:]+):\s+(.+)/?(lc($1),$2):()} split /\n/ $description;
+my %description = map {/^([^:]+):\s+(.+)/?(lc($1),$2):()} split /\n/, $description;
 
 my %pkg;
 $pkg{BuildDir} = getcwd;