Hi,
I uploaded an NMU of your package.
Please see this as help to get the package into a releaseable condition again.
Please find the used diff below.
Cheers,
Andi
diff -u tkvnc-0.6/tkvnc.pl tkvnc-0.6/tkvnc.pl
--- tkvnc-0.6/tkvnc.pl
+++ tkvnc-0.6/tkvnc.pl
@@ -68,16 +68,16 @@
$mw = MainWindow->new;
$mw->title("tkvnc 0.6");
- $mbar = $mw->Frame(-width=>200, height =>25, -relief=>'ridge',
+ $mbar = $mw->Frame(-width=>200, -height =>25, -relief=>'ridge',
-borderwidth=>2)->pack(
-fill=>'x',
-side=>'top');
- $mw->Label(-text=>"Select machine to control:")->pack(-side=>'top',
-expand=>0, fill=>'none');
+ $mw->Label(-text=>"Select machine to control:")->pack(-side=>'top',
-expand=>0, -fill=>'none');
$buttonframe = $mw->Frame->pack(-fill=>'both', -side=>'bottom');
- $bt = $buttonframe->Scrolled("Text", width =>23, -scrollbars =>'oe')
->pack(-expand=>1, fill=>'both');
+ $bt = $buttonframe->Scrolled("Text", -width =>23, -scrollbars =>'oe')
->pack(-expand=>1, -fill=>'both');
$bt ->configure(-state =>'disabled'); # no typing allowed!
$mbar->Menubutton(-text => "File",
@@ -103,7 +103,7 @@
foreach $key (sort keys (%machines)){
- $buttitem = $bt->Button(-text=>"$key", -width =>20, height
=>1,-command=>[\&do_launch, $machines{$key}]);
+ $buttitem = $bt->Button(-text=>"$key", -width =>20, -height
=>1,-command=>[\&do_launch, $machines{$key}]);
$bt->windowCreate('end', -window => $buttitem);
$bt->insert('end',"\n");
}
diff -u tkvnc-0.6/debian/changelog tkvnc-0.6/debian/changelog
--- tkvnc-0.6/debian/changelog
+++ tkvnc-0.6/debian/changelog
@@ -1,3 +1,11 @@
+tkvnc (0.6-9.1) unstable; urgency=medium
+
+ * Non-maintainer upload.
+ * Fix options with a preceding "-". Thanks to Andrey Mitrofanov
+ for analysis and patch. Closes: #420236
+
+ -- Andreas Barth <[EMAIL PROTECTED]> Sat, 21 Jul 2007 09:35:50 +0000
+
tkvnc (0.6-9) unstable; urgency=low
* and architecture all (closes: #195714)
--
http://home.arcor.de/andreas-barth/
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
