From fafd37f4a1f1394db086a0a054d51bc10ac80b37 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sat, 15 Sep 2001 05:05:44 +0000
Subject: [PATCH] In case the name of the package is different than the main
 program name which contains the $version, the program looks for
 $prog_real_name instead.

---
 gbootroot_pkg | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gbootroot_pkg b/gbootroot_pkg
index 737ba03..0bbf7da 100755
--- a/gbootroot_pkg
+++ b/gbootroot_pkg
@@ -23,6 +23,7 @@ use File::Find;
 
 my $user_home = "/home/mttrader";
 my $prog = "gbootroot";
+my $prog_real_name = "gbootroot";
 my $revision = 1;
 my $dist = "unstable";
 my $urgency = "low";
@@ -42,8 +43,8 @@ my ($real_uid, $real_gid) = (stat($user_home))[4,5];
 # Find the version
 
 my $version;
-open(CVS, "$gbootroot_cvs/$prog") or 
-	die "Couldn't find $prog in $gbootroot_cvs: $!\n";
+open(CVS, "$gbootroot_cvs/$prog_real_name") or 
+	die "Couldn't find $prog_real_name in $gbootroot_cvs: $!\n";
 	while (<CVS>) {
 		if (/\my \$version/) {
 			$version = (split(/=/,$_))[1];