(build_synthesis) drop compatibility with perl-URPM < 1.48 (ie < 2007.1)

2 files changed, 1 insertions, 7 deletions

diff --git a/NEWS b/NEWS
index 2e4aac8..df4a02c 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,6 @@
 - actually compress xml files with '--text' flag passed to lzma (shrinks
   files.xml.lzma by 25% \o/)
+- drop compatibility with perl-URPM < 1.48 (ie < 2007.1)
 
 Version 6.2 - 27 February 2012, by Thierry Vignaud
 
diff --git a/genhdlist2 b/genhdlist2
index 89e16bd..1273d80 100644
--- a/genhdlist2
+++ b/genhdlist2
@@ -374,19 +374,12 @@ sub add_pkg_header {
 
 sub build_synthesis {
     my ($urpm, $synthesis, $synthesis_filter) = @_;
-    # for compatibility with perl-URPM < 1.48 (ie < 2007.1),
-    # creating empty synthesis by hand. This is only needed to run on old distros
-    if (@{$urpm->{depslist}} == 0) {
-        open(my $hsynth, "| $synthesis_filter > $synthesis");
-	close $hsynth or die "Can't create empty synthesis $synthesis: $!\n";
-    } else {
 	$urpm->build_synthesis(
 	    start     => 0,
 	    end       => $#{$urpm->{depslist}},
 	    synthesis => $synthesis,
 	    filter    => $synthesis_filter,
 	) or die "build_synthesis failed (disk full?)\n";
-    }
 }
 
 sub remove_versioned_media_info {