Package: libui-dialog-perl
Version: 1.08-1
The patch below adds the --insecure option to the CDialog backend of
UI::Dialog. This option makes the password widget friendlier, by
showing asterisks when a user types a password. This functionality
exists in in the dialog program, but unfortunately not in this
Perl module. Ofcourse, this feature is only activated when the
appropriate parameter is passed when the UI::Dialog::Backend::CDialog
object is created:
$d = new UI::Dialog::Backend::CDialog( insecure => 1 ) or die;
The "unless not" constructions seen around the added line seem
very ugly to me, because "unless not" essentially means the same
as "if". However I've decided not to touch those lines yet. Perhaps
I will do so in the future should I decide to ask for upstream
maintainership of the module on CPAN. Ofcourse, anybody is free to
still change that regadless of what I decide to do. This is also
the reason why I sent the bug to Debian and not to upstream: the
project seems to have been inactive since 2004.
Kind regards,
Michiel de Boer
[EMAIL PROTECTED]
diff -Nru libui-dialog-perl-1.08.orig/lib/UI/Dialog/Backend/CDialog.pm
libui-dialog-perl-1.08/lib/UI/Dialog/Backend/CDialog.pm
--- libui-dialog-perl-1.08.orig/lib/UI/Dialog/Backend/CDialog.pm
2004-10-04 05:16:43.000000000 +0200
+++ libui-dialog-perl-1.08/lib/UI/Dialog/Backend/CDialog.pm 2007-07-30
05:12:56.000000000 +0200
@@ -84,6 +84,7 @@
$self->{'_opts'}->{'extra-label'} = $cfg->{'extra-label'} || undef();
$self->{'_opts'}->{'help-button'} = $cfg->{'help-button'} || 0;
$self->{'_opts'}->{'help-label'} = $cfg->{'help-label'} || undef();
+ $self->{'_opts'}->{'insecure'} = $cfg->{'insecure'} || 0;
$self->{'_opts'}->{'max-input'} = $cfg->{'max-input'} || 0;
$self->{'_opts'}->{'no-cancel'} = $cfg->{'no-cancel'} ||
$cfg->{'nocancel'} || 0;
$self->{'_opts'}->{'no-collapse'} = $cfg->{'no-collapse'} || 0;
@@ -176,6 +177,7 @@
$cmnd .= ' --extra-label "'.$args->{'extra-label'}.'"' unless
not $args->{'extra-label'};
$cmnd .= ' --help-button' unless not $args->{'help-button'} and
not $args->{'help-label'};
$cmnd .= ' --help-label "'.$args->{'help-label'}.'"' unless not
$args->{'help-label'};
+ $cmnd .= ' --insecure' if $args->{'insecure'};
$cmnd .= ' --max-input "'.$args->{'max-input'}.'"' unless not
$args->{'max-input'};
$cmnd .= ' --no-cancel' unless not $args->{'nocancel'} and not
$args->{'no-cancel'};
$cmnd .= ' --no-collapse' unless not $args->{'no-collapse'} and
not $args->{'literal'};
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
