perfsonar development work

Author: fernandes
Date: 2008-04-16 10:00:44 -0400 (Wed, 16 Apr 2008)
New Revision: 3707

Modified:
   branches/rpm/package_maker.pl
Log:


Modified: branches/rpm/package_maker.pl
===================================================================
--- branches/rpm/package_maker.pl       2008-04-16 13:53:40 UTC (rev 3706)
+++ branches/rpm/package_maker.pl       2008-04-16 14:00:44 UTC (rev 3707)
@@ -449,10 +449,10 @@
 sub createRpmBuildTree(){
        my $currdir = `pwd`;
        chomp($currdir);
-       my $homedir = `echo ~`; # workaround for Ubuntu (and maybe others) 
~/.rpmmacros bug
-    chomp($homedir);
+       my @pwuid = getpwuid($<);  # Suggested by Ralf Kleineisel so it works 
on shells that don't expand ~
+       my $homedir = $pwuid[7];
     
-    open( RPMMACROS, "> $homedir/.rpmmacros") or die "There was a problem 
opening the file ~/.rpmmacros for writing.";
+    open( RPMMACROS, "> $homedir/.rpmmacros") or die "There was a problem 
opening the file $homedir/.rpmmacros for writing.";
     print RPMMACROS "\%_topdir               $currdir/rpmbuild\n";
     print RPMMACROS "\%_tmppath              $currdir/rpmbuild/TMP";
     close RPMMACROS;