Группа :: Офис
Пакет: gscan2pdf
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: gscan2pdf.patch
Скачать
Скачать
diff --git a/gscan2pdf/bin/gscan2pdf b/gscan2pdf/bin/gscan2pdf
index d6576ea..2f9ff5d 100755
--- a/gscan2pdf/bin/gscan2pdf
+++ b/gscan2pdf/bin/gscan2pdf
@@ -78,7 +78,6 @@ use Fcntl qw(:flock)
use Log::Log4perl;
use Try::Tiny;
use Data::Dumper;
-use Linux::Distribution qw(distribution_name distribution_version);
use Filesys::Df;
use English qw( -no_match_vars )
; # for $PERL_VERSION, $PROGRAM_NAME, $EVAL_ERROR, $ERRNO
@@ -147,19 +146,6 @@ read_config_file($rc);
set_up_test_mode();
-if ( my $distro = distribution_name() ) {
- my $version = distribution_version();
- if ( defined $version ) {
- $version = ", version $version";
- }
- else {
- $version = $EMPTY;
- }
- $logger->info("You are running $distro$version");
-}
-else {
- $logger->info('Distribution unknown');
-}
$logger->info("Perl version $PERL_VERSION");
$logger->info("Glib-Perl version $Glib::VERSION");
$logger->info( 'Built for Glib ' . join $DOT, Glib->GET_VERSION_INFO );