diff options
author | David Bremner <bremner@debian.org> | 2015-09-25 08:20:56 -0300 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2015-09-25 08:20:56 -0300 |
commit | d2b96c9706f86ec307be0a678e7c5614fa7bede6 (patch) | |
tree | edbdfdb0acde12e747ed1484fe3552000e2ae5dd /dh_elpa | |
parent | 37ff27c591a367947e6ccb85998cc1e34970a133 (diff) |
release 0.12: maintainability fix
In the best case, if autoscript_sed becomes public, we need a versioned
build depends on debhelper. Anyway, we can always go this way in the
future.
Diffstat (limited to 'dh_elpa')
-rwxr-xr-x | dh_elpa | 17 |
1 files changed, 14 insertions, 3 deletions
@@ -76,6 +76,17 @@ sub doit_quietly { } +# simplified version of private sub autoscript_sed in Dh_Lib +sub sed_file { + my ($sed, $infile, $outfile) = @_; + + open(IN, $infile) or die "$infile: $!"; + open(OUT, ">>$outfile") or die "$outfile: $!"; + while (<IN>) { $sed->(); print OUT } + close(OUT) or die "$outfile: $!"; + close(IN) or die "$infile: $!"; +} + sub read_package_desc { my ($descdir, $package) = @_; my %desc = (); @@ -117,9 +128,9 @@ sub maybe_install_helper{ my $elpaversion = $desc->{'ELPA-Version'} or error "elpa version not found"; - Debian::Debhelper::Dh_Lib::autoscript_sed (sub {s/#ELPAPACKAGE#/$elpapackage/; - s/#ELPAVERSION#/$elpaversion/; }, - "$templatedir/$piece", $target); + sed_file (sub {s/#ELPAPACKAGE#/$elpapackage/; + s/#ELPAVERSION#/$elpaversion/; }, + "$templatedir/$piece", $target); chmod oct($mode), $target; } } |