To solve a problem I wrote about earlier,
in the text of the program "apt-mirror 0.5.4-1" commented line

775 sub process_index
776 {
        ...
814     if ( exists $lines{"Filename:"} )
        {    # Packages index
            $skipclean{ remove_double_slashes( $path . "/" . 
$lines{"Filename:"} ) } = 1;
            print FILES_ALL remove_double_slashes( $path . "/" . 
$lines{"Filename:"} ) . "\n";
            print FILES_MD5 $lines{"MD5sum:"} . "  " . remove_double_slashes( 
$path . "/" . $lines{"Filename:"} ) . "\n" if defined $lines{"MD5sum:"};
            print FILES_SHA1 $lines{"SHA1:"} . "  " . remove_double_slashes( 
$path . "/" . $lines{"Filename:"} ) . "\n" if defined $lines{"SHA1:"};
            print FILES_SHA256 $lines{"SHA256:"} . "  " . 
remove_double_slashes( $path . "/" . $lines{"Filename:"} ) . "\n" if defined 
$lines{"SHA256:"};
            if ( need_update( $mirror . "/" . $lines{"Filename:"}, 
$lines{"Size:"} ) )
            {
                print FILES_NEW remove_double_slashes( $uri . "/" . 
$lines{"Filename:"} ) . "\n";
                add_url_to_download( $uri . "/" . $lines{"Filename:"}, 
$lines{"Size:"} );
            }
        }
827     #else                              # my comment
        elsif ( exists $lines{"Files:"} )  # my insert
        {    # Sources index
            foreach ( split( /\n/, $lines{"Files:"} ) )
            {

After this change everything works fine and the message

Processing indexes: [SSSSSUse of uninitialized value $lines{"Files:"} in split 
at /usr/bin/apt-mirror line 829, <STREAM> line 1.
Use of uninitialized value $lines{"Files:"} in split at /usr/bin/apt-mirror 
line 829, <STREAM> line 2.
PPPPP]

no longer appears.         

Reply via email to