111         $arch = $3;

   111         $arch = $3;

   112     } else {

   112     } else {

   113         fatal "Can't parse archive name: $archive"

   113         fatal "Can't parse archive name: $archive"

   114     }

   114     }

   115 

   115 

   116     my $pkg_name_lc = lc $pkg_name;

   117     my $pkg_name_lc = lc $pkg_name;

   117     blab "Package name: $pkg_name";

   118     blab "Package name: $pkg_name";

   118 

   119 

   119 

   120 

   120     my_mkdir $pkg_name_lc;

   121     my_mkdir $pkg_name_lc;