r10924 - /trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm

ra28145-guest at users.alioth.debian.org ra28145-guest at users.alioth.debian.org
Thu Dec 6 19:51:15 UTC 2007


Author: ra28145-guest
Date: Thu Dec  6 19:51:15 2007
New Revision: 10924

URL: http://svn.debian.org/wsvn/?sc=1&rev=10924
Log:
leave patches unapplied

Modified:
    trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm

Modified: trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm
URL: http://svn.debian.org/wsvn/trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm?rev=10924&op=diff
==============================================================================
--- trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm (original)
+++ trunk/libgtk2-ex-printdialog-perl/lib/Gtk2/Ex/PrintDialog.pm Thu Dec  6 19:51:15 2007
@@ -69,11 +69,9 @@
 		$self->{opt_print_command}->set_active(1);
 
 	} else {
-		my @names;
-		use Net::CUPS::Destination;
-		for (@printers) {push @names, $_->getName}
-		map { $self->{opt_printer_combo}->append_text($_) } @names;
+		map { $self->{opt_printer_combo}->append_text($_) } @printers;
 		$self->{opt_printer_combo}->set_active(0);
+
 	}
 
 




More information about the Pkg-perl-cvs-commits mailing list