diff --git a/usrlocalpkg/admin/makebin b/usrlocalpkg/admin/makebin index 9e0ef8d..ad89e49 100755 --- a/usrlocalpkg/admin/makebin +++ b/usrlocalpkg/admin/makebin @@ -10,7 +10,7 @@ my $BINDIR = $ENV{MAKEBIN_BINDIR} || '/usr/local/package/bin'; my $LIBDIR = $ENV{MAKEBIN_LIBDIR} || '/usr/local/package/lib'; # files that belong to the wrapper tools and should stay in the BINDIR -my %SACROSANCT = (ptype => 1, pman => 1, prun => 1); +my %SACROSANCT = (ptype => 1, pman => 1, prun => 1); sub WRAPPER { return<<'_EOF_'; @@ -28,7 +28,7 @@ _EOF_ sub tilde_replace { my ($data,$hash)=@_; - $data =~ s/~([^~]*)~/$hash->{$1}/eg; + $data =~ s/~([^~]*)~/$hash->{$1}/eg; return $data; } @@ -250,8 +250,8 @@ sub to_varstring { } sub createWrapper { - my %firstWrapper; - my %firstWrapperInode; + my %firstWrapper; + my %firstWrapperInode; foreach my $wrapper (sort keys %hasPackage) { my $package = $hasPackage{$wrapper}; if (my $oldfile = $firstWrapper{$package}) {