view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.12 Wed, 23 Apr 2008 14:52:17 +0200
	* got examples in examples/ subdir compiling again
	* changed handling of HAVE_STRDUP in Gen/cmdline_c.pm
	* added fix for 'undefined symbol in concatenation' in Gen/cmdline_pod.pm

0.10-0.11
	* various small bugfixes

0.09 Tue, 13 Sep 2005 14:18:52 +0000
	* added preprocessor checks for pwd.h, getuid(), getpwuid()
    for rc filename tilde-expansion.

0.08 Thu, 16 Sep 2004 18:48:49 +0200
	* small bugfixes for pod-generation without 'rcfile' options

0.07 2004-05-24 moocow
	* fixed aesthetic bug for Getopt::Long v2.34

0.06 2004-01-13 moocow
	* cvs2svn

Gen/cmdline_c.pm  view on Meta::CPAN

			      int user_specified)
{
  char *fullname;
  FILE *rcfile;

  if (!filename) return; /* ignore NULL filenames */

#if defined(HAVE_GETUID) && defined(HAVE_GETPWUID)
  if (*filename == '~') {
    /* tilde-expansion hack */
    struct passwd *pwent = getpwuid(getuid());
    if (!pwent) {
      fprintf(stderr, "%s: user-id %d not found!\n", PROGRAM, getuid());
      return;
    }
    if (!pwent->pw_dir) {
      fprintf(stderr, "%s: home directory for user-id %d not found!\n", PROGRAM, getuid());
      return;
    }
    fullname = (char *)malloc(strlen(pwent->pw_dir)+strlen(filename));
    strcpy(fullname, pwent->pw_dir);