[Debpool-commits] [SCM] Debpool Project Repository branch, master, updated. 0.2.3-69-g88de7fb

[Andres Mejia]

The following commit has been merged in the master branch:
commit 88de7fbcbed5bdf190a7e88a33761d2922b3e510
Author: Andres Mejia <mcitadel at gmail.com>
Date:   Fri Sep 19 17:41:17 2008 -0400

    Fixed errors in Gzip.pm and Release.pm. Fixed POD errors.

diff --git a/debian/changelog b/debian/changelog
index cbc7bbb..4072187 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,4 @@
-debpool (0.3.3) experimental; urgency=low
+debpool (0.3.4) experimental; urgency=low
 
   [ Hilko Bengen ]
   * Performed some code cleanups avoid the most serious Perl::Critic
@@ -99,8 +99,9 @@ debpool (0.3.3) experimental; urgency=low
   * Supply VERSION field when building package based on changelog.
   * Use pod2man to generate manpages.
   * Change AUTHOR field in manpages to Debpool Developer's mailing list.
+  * Fixed errors in Gzip.pm and Release.pm.
 
- -- Andres Mejia <mcitadel at gmail.com>  Fri, 19 Sep 2008 14:28:49 -0400
+ -- Andres Mejia <mcitadel at gmail.com>  Fri, 19 Sep 2008 17:37:24 -0400
 
 debpool (0.2.3) experimental; urgency=low
 
diff --git a/lib/DebPool/Config.pm b/lib/DebPool/Config.pm
index ed0313d..af836a3 100644
--- a/lib/DebPool/Config.pm
+++ b/lib/DebPool/Config.pm
@@ -908,6 +908,8 @@ Default value: $ENV{'HOME'}.'/.debpool/debpool.log';
 $Options{'log_file'} = $ENV{'HOME'}.'/.debpool/debpool.log';
 $OptionDefs{'log_file'} = 'log_file=s';
 
+=back
+
 =head2 Misc. configuration
 
 These are values which don't particularly fit into any of the other
diff --git a/lib/DebPool/Gzip.pm b/lib/DebPool/Gzip.pm
index 1c097c4..47026f8 100644
--- a/lib/DebPool/Gzip.pm
+++ b/lib/DebPool/Gzip.pm
@@ -109,6 +109,7 @@ sub Gzip_File {
 
     # Open the source file so that we have it available.
 
+    my $source_fh;
     if (!open($source_fh, '<', $file)) {
         $Error = "Couldn't open source file '$file': $!";
         return;
diff --git a/lib/DebPool/Release.pm b/lib/DebPool/Release.pm
index 066e4dc..f72addf 100644
--- a/lib/DebPool/Release.pm
+++ b/lib/DebPool/Release.pm
@@ -156,6 +156,7 @@ sub Generate_Release_Triple {
         # large amount of data, but unfortunately, both Digest routines
         # require the entire thing at once.
 
+        my $ck_fh;
         if (!open($ck_fh, '<', "${dirpath}/${ck_file}")) {
             $Error = "Couldn't open file '${dirpath}/${ck_file}' for reading.";
             return;

-- 
Debpool Project Repository