r306: * Corrected slash substitution problem in dh_installwm.

diff --git a/debian/changelog b/debian/changelog
index dde4b9107a11e9dbb37d274937b35c6b1ac0c2e7..fdb9c5539e6b4b399bb7fd47ce809e3aac013a00 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+debhelper (2.0.72) unstable; urgency=low
+
+  * Corrected slash substitution problem in dh_installwm.
+
+ -- Joey Hess <joeyh@master.debian.org>  Tue,  9 Nov 1999 15:00:21 -0800
+
 debhelper (2.0.71) unstable; urgency=low
 
   * Oh, the build dependancies include all of debhelper's regular

diff --git a/debian/control b/debian/control
index 98b588715329778d05c3807ab7406a38727c863f..e9706612f15c2ae3022d149615d3ee7c774e4f6f 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -3,7 +3,7 @@ Section: devel
 Priority: optional
 Maintainer: Joey Hess <joeyh@master.debian.org>
 Build-Depends-Indep: perl5, fileutils (>= 3.16-4), file (>= 3.23-1)
-Standards-Version: 3.0.1.1
+Standards-Version: 3.1.0.0
 
 Package: debhelper
 Architecture: all

diff --git a/dh_installwm b/dh_installwm
index be3a1373627cad96def230a9d488a77a7974c656..b3b9059e48d9c49e53c46591151b36a64c1b3ae2 100755 (executable)
--- a/dh_installwm
+++ b/dh_installwm
@@ -1,21 +1,22 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Add to postinst and postrm to register a window manager.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+BEGIN { push @INC, "debian", "/usr/share/debhelper" }
+use Dh_Lib;
+init();
 
-wm=$1
+$wm=shift;
 
-if [ -z "$wm" ]; then
-       error "No window manager was specified."
-fi
+if ($wm eq '') {
+       error("No window manager filename was specified.");
+}
 
-for PACKAGE in $DH_DOPACKAGES; do
-       TMP=`tmpdir $PACKAGE`
-       
-       if [ ! "$DH_NOSCRIPTS" ]; then
-               autoscript "postinst" "postinst-wm" "s/#WM#/$wm/"
-               autoscript "postrm" "postrm-wm" "s/#WM#/$wm/"
-       fi
-done
+foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
+#      $TMP=tmpdir($PACKAGE);
+
+       if (! $dh{NOSCRIPTS}) {
+               autoscript($PACKAGE,"postinst","postinst-wm","s:#WM#:$wm:");
+               autoscript($PACKAGE,"postrm","postrm-wm","s:#WM#:$wm:");
+       }
+}