X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_installexamples;h=9fdbdf7cabef8da41d6e777299364eb93ae9c9e7;hb=053f6f8b4e7431d32511aef209188a084e8c7e79;hp=7e627675b44fac14139b79aa90c475bededdfd9c;hpb=c577623cfbfa6aedbe12da4b96759864ae6f466d;p=debhelper.git

diff --git a/dh_installexamples b/dh_installexamples
index 7e62767..9fdbdf7 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");
 	}
 }