diff options
Diffstat (limited to 'BCD/Common.pm')
| -rw-r--r-- | BCD/Common.pm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/BCD/Common.pm b/BCD/Common.pm index 9804eed..d0ab23a 100644 --- a/BCD/Common.pm +++ b/BCD/Common.pm @@ -11,7 +11,7 @@ use File::Glob ':glob'; use BCD::Bcd qw(:DEFAULT); our @ISA = qw(Exporter); -our @EXPORT = qw(create_needed_dir check_dir clean_all print_color check_based_on); +our @EXPORT = qw(create_needed_dir check_dir clean_all print_color); # export all needed var our @EXPORT_OK = qw($isoconf $wd $name $arch $file $based_on $version $repo $isodir $builddir $distrib_path $error_color $DISTRIB $THEME $tmp_rpmsrate $NB_FORK $dir_deps @list_of_removed $rpmrc $pwd_file $conf_file $date $urpmqlogs $rpmcheck_list_pkg $file_rpmcheck_log $smartcheck_list_pkg $smartcheck_dir $file_smartcheck_log $chroot_path $support); @@ -132,20 +132,6 @@ sub check_dir { create_needed_dir("/tmp/$isoconf->{nameid}-$version-$isoconf->{arch}"); } -sub check_based_on { - if ($isoconf->{based_on} eq "1" || $isoconf->{based_on} =~ "gauldron") { - # dedicated line for MGA - print_color("Mageia distribution", $color); - return 1; - } elsif ($isoconf->{based_on} gt "2009.1" || $isoconf->{based_on} ne "mes5") { - print_color("distribution > 2009.1 or not a MES5", $color); - return 1; - } else { - print_color("distribution < 2009.1 or MES5", $color); - return 0; - } -} - sub clean_all { my @l = glob("/tmp/$isoconf->{nameid}-$version-$isoconf->{arch}/$distrib_path/*"); foreach (@l) { |