From 053f6f8b4e7431d32511aef209188a084e8c7e79 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Fri, 9 Feb 2001 00:57:53 +0000
Subject: r420: big monsta changes

---
 dh_installexamples | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'dh_installexamples')

diff --git a/dh_installexamples b/dh_installexamples
index 7e627675..9fdbdf7c 100755
--- a/dh_installexamples
+++ b/dh_installexamples
@@ -1,30 +1,31 @@
 #!/usr/bin/perl -w
 #
 # Reads debian/examples, installs all files listed there into
-# /usr/share/doc/$PACKAGE/examples
+# /usr/share/doc/$package/examples
 
+use strict;
 use Debian::Debhelper::Dh_Lib;
 init();
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
-	$file=pkgfile($PACKAGE,"examples");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
+	my $file=pkgfile($package,"examples");
 	
-	undef @examples;
+	my @examples;
 	
 	if ($file) {
 		@examples=filearray($file, ".");
 	}	
 
-	if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+	if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
 		push @examples, @ARGV;
 	}
 
 	if (@examples) {
-		if (! -d "$TMP/usr/share/doc/$PACKAGE/examples") {
-			doit("install","-d","$TMP/usr/share/doc/$PACKAGE/examples");
+		if (! -d "$tmp/usr/share/doc/$package/examples") {
+			doit("install","-d","$tmp/usr/share/doc/$package/examples");
 		}
 		
-		doit("cp","-a",@examples,"$TMP/usr/share/doc/$PACKAGE/examples");
+		doit("cp","-a",@examples,"$tmp/usr/share/doc/$package/examples");
 	}
 }
-- 
cgit v1.2.3