r57506 - /scripts/examples/gen-itp

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed May  5 14:56:08 2010
New Revision: 57506

URL: http://svn.debian.org/wsvn/?sc=1&rev=57506
Log:
rename parse_fh -> parse, per dpkg changes

Modified:
    scripts/examples/gen-itp

Modified: scripts/examples/gen-itp
URL: http://svn.debian.org/wsvn/scripts/examples/gen-itp?rev=57506&op=diff
==============================================================================
--- scripts/examples/gen-itp (original)
+++ scripts/examples/gen-itp Wed May  5 14:56:08 2010
@@ -41,7 +41,7 @@
 eval {
 while(1) {
     my $_ = Dpkg::Control->new();
-    last if not $_->parse_fh($copyright_file, "debian/copyright");
+    last if not $_->parse($copyright_file, "debian/copyright");
     if($_->{'Format-Specification'}) {
         $upstream = $_;
     } elsif ($_->{Files}) {
@@ -60,7 +60,7 @@
 my $changelog_file;
 open $changelog_file, "-|", "dpkg-parsechangelog";
 my $changelog = Dpkg::Control->new();
-$changelog->parse_fh($changelog_file, "debian/changelog");
+$changelog->parse($changelog_file, "debian/changelog");
 close $changelog_file;
 
 my $lang;