• Bug#249274: debpartial: does not work at all (2/2)

    From Adeodato =?iso-8859-1?Q?Sim=F3?=@1:229/2 to All on Sun Aug 15 06:00:08 2004
    [continued from previous message]

    write_packages_gz($dirprefix + topdir(i), dist, cat, arch,
    sep_pkg, dest_dir, $dirprefix + dir)
    end
    - write_sources_gz ($dirprefix + topdir(i), dist, cat,
    + write_sources_gz($dirprefix + topdir(i), dist, cat,
    $sources[dist + "/" + cat].sources_of(sep_pkg),
    dest_dir, $dirprefix + dir, write_src) if $merge
    i += 1

    --- debpartial 2003-05-08 12:37:02.000000000 +0200
    +++ debpartial.no-grouped 2004-08-15 05:24:09.000000000 +0200
    @@ -572,7 +572,7 @@
    end
    end
    end
    - print_source_info (i) unless (!$source) || $merge
    + print_source_info(i) unless (!$source) || $merge
    sep_pkgs
    end

    @@ -778,15 +778,15 @@
    check_size_option($src_size_limit)

    if ARGV.size != 2
    - error_arg ("two arguments <source> and <dest> required")
    + error_arg("two arguments <source> and <dest> required")
    end

    if $merge && ! $source
    - error_arg ("--merge and --nosource is given")
    + error_arg("--merge and --nosource is given")
    end

    if ! $merge && $limit == 1
    - error_arg ("limit must be larger than 1 in no merge-mode")
    + error_arg("limit must be larger than 1 in no merge-mode")
    end

    base = ARGV.shift
    @@ -857,12 +857,12 @@
    begin
    sep_pkgs = size_separator.separate(pkgs)
    rescue SizeSmallError
    - error ("Error!: " + $!.to_s)
    + error("Error!: " + $!.to_s)
    end

    def write_packages_gz (