Bug#474348: dh-make-perl: SOURCE_DIR cannot be relative

[Kiss Gabor (Bitman)]

> > dh-make-perl fails if started with not absolute path.
> 
> Sorry, I cannot reproduce this bug.
> 
> Could you please tell us what exactly you are doing and what exactly
> happens?

Hi Gregor,

root at bakacsin:/usr/local/src/perl/debian# tar -xzf ../GSM-SMS-0.162.tar.gz
root at bakacsin:/usr/local/src/perl/debian# dh-make-perl GSM-SMS-0.162
Found: GSM-SMS 0.162 (libgsm-sms-perl arch=all)
======================================================================
Could not find the dependencies for the requested module
Module::Depends::Intrusive reports: Cannot find current script
'GSM-SMS-0.162/Makefile.PL' at /usr/share/perl/5.8/FindBin.pm line 201
BEGIN failed--compilation aborted at /usr/share/perl/5.8/FindBin.pm line
201.
Compilation failed in require at
/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL line 6.
BEGIN failed--compilation aborted at
/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL line 6.
Compilation failed in require at
/usr/share/perl5/Module/Depends/Intrusive.pm line 76.

Generated error: Error: Cannot find current script
'GSM-SMS-0.162/Makefile.PL' at /usr/share/perl/5.8/FindBin.pm line 201
BEGIN failed--compilation aborted at /usr/share/perl/5.8/FindBin.pm line
201.
Compilation failed in require at
/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL line 6.
BEGIN failed--compilation aborted at
/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL line 6.
Compilation failed in require at
/usr/share/perl5/Module/Depends/Intrusive.pm line 76.

Please check if your module depends on Module::Install
for its build process - Automatically finding its
dependencies is unsupported, please specify them manually
using the 'depends' option. 
======================================================================
root at bakacsin:/usr/local/src/perl/debian# 

Rerunning dh-make-perl under strace I got this:

...
14613 getcwd("/usr/local/src/perl/debian/GSM-SMS-0.162", 4096) = 41
14613 fchdir(4)                         = 0
14613 close(4)                          = 0
14613 stat64("/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL", {st_mode=S_
IFREG|0644, st_size=1363, ...}) = 0
14613 open("/usr/local/src/perl/debian/GSM-SMS-0.162/Makefile.PL", O_RDONLY|O_LA
RGEFILE) = 4
...
14613 open("/usr/share/perl/5.8/FindBin.pm", O_RDONLY|O_LARGEFILE) = 5
14613 ioctl(5, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbfafcd38) = -1 ENOTTY (Inappropriate ioctl for device)
14613 _llseek(5, 0, [0], SEEK_CUR)      = 0
14613 read(5, "# FindBin.pm\n#\n# Copyright (c) 1"..., 4096) = 4096
14613 read(5, "\'. Do a dumb check to see\n\t    #"..., 4096) = 1314
14613 stat64("GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/usr/local/sbin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/usr/local/bin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/usr/sbin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/usr/bin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/sbin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/bin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("/usr/X11R6/bin/GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
14613 stat64("GSM-SMS-0.162/Makefile.PL", 0x814e0c8) = -1 ENOENT (No such file or directory)
...

However If I run
dh-make-perl /usr/local/src/perl/debian/GSM-SMS-0.162
it works.

Regards

Gabor