Your message dated Sun, 23 Jul 2006 23:57:28 +0200
with message-id <[EMAIL PROTECTED]>
and subject line Removed
has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Debian bug tracking system administrator
(administrator, Debian Bugs database)
--- Begin Message ---
Package: drsync
Version: 0.4-1
Severity: important
The following dialogue happened. Comments are in >>><<<'s.
lobus:/tmp> rm -rf foo bar
lobus:/tmp> mkdir foo
lobus:/tmp> echo hi > foo/x
lobus:/tmp> drsync.pl --recursive foo bar
lobus:/tmp> drsync.pl -r foo bar
>>>It hangs<<<
One problem is that drsync.pl doesn't take "-r", although rsync does
take "-r". Beyond the examples in the manual entry, the only
documentation of the options that drsync can take is "The script
accepts most of the rsync options", so there isn't any way aside from
experimentation or source reading to figure out that --recursive is
okay but -r is not.
The loop itself seems to be caused by a bug in
/usr/share/perl5/Getopt/Mixed.pm. A loop starting "while (($option,
$value) = nextOption())" on line 375 keeps going when it shouldn't.
Here's some perldb output. I'll report this as a bug against
libgetopt-mixed-perl as well.
lobus:/tmp> perl -d /usr/bin/drsync.pl -r foo bar
>>>Junk omitted where I rediscover the "c" command<<<
DB<2> c
>>>Long wait<<<
Getopt::Mixed::nextOption(/usr/share/perl5/Getopt/Mixed.pm:293):
293: my($option,$opt,$value,$optType,$prettyOpt);
>>>Junk omitted where I rediscover how to get a stack trace.<<<
DB<4> T
@ = Getopt::Mixed::nextOption() called from file
`/usr/share/perl5/Getopt/Mixed.pm' line 375
. = Getopt::Mixed::getOptions() called from file `/usr/bin/drsync.pl' line
216
DB<4> r
list context return from Getopt::Mixed::nextOption:
0 ''
1 ''
2 ''
Getopt::Mixed::getOptions(/usr/share/perl5/Getopt/Mixed.pm:376):
376: $option =~ s/\W/_/g; # Make a legal Perl identifier
DB<4> n
Getopt::Mixed::getOptions(/usr/share/perl5/Getopt/Mixed.pm:377):
377: $value = 1 unless defined $value;
DB<4>
Getopt::Mixed::getOptions(/usr/share/perl5/Getopt/Mixed.pm:378):
378: eval("\$" . $package . '::opt_' . $option . ' = $value;');
DB<4>
Getopt::Mixed::getOptions((eval
5773)[/usr/share/perl5/Getopt/Mixed.pm:378]:1):
1: $main::opt_ = $value;
DB<4>
Getopt::Mixed::getOptions(/usr/share/perl5/Getopt/Mixed.pm:375):
375: while (($option, $value) = nextOption()) {
DB<4>
Getopt::Mixed::getOptions(/usr/share/perl5/Getopt/Mixed.pm:376):
376: $option =~ s/\W/_/g; # Make a legal Perl identifier
DB<4> p $option
DB<5> p $value
DB<6> p nextOption?"true":"false"
Search pattern not terminated at (eval
5776)[/usr/share/perl/5.6.1/perl5db.pl:1521] line 2.
DB<7> p nextOption ()?"true":"false"
false
DB<8> p (($option,$value) = nextOption ())?"true":"false"
true >>>I think "false" was expected.<<<
-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux lobus.fungible.com 2.4.17 #6 Sun Mar 31 13:05:51 PST 2002 i686
Locale: LANG=C, LC_CTYPE=C
Versions of packages drsync depends on:
ii libgetopt-mixed-perl 1.008-6 Perl module for processing options
ii perl 5.6.1-7 Larry Wall's Practical Extraction
ii rsync 2.5.5-0.1 fast remote file copy program (lik
--- End Message ---
--- Begin Message ---
This package has been removed from Debian because it was not
maintained and had lots of RC bugs.
--
Martin Michlmayr
http://www.cyrius.com/
--- End Message ---
