Bug 14108 - Any use of perl-tk crashes
Summary: Any use of perl-tk crashes
Status: RESOLVED FIXED
Alias: None
Product: Mageia
Classification: Unclassified
Component: RPM Packages (show other bugs)
Version: 5
Hardware: x86_64 Linux
Priority: High critical
Target Milestone: ---
Assignee: QA Team
QA Contact:
URL:
Whiteboard: MGA5TOO has_procedure advisory mga5-3...
Keywords: validated_update
: 14540 (view as bug list)
Depends on:
Blocks:
 
Reported: 2014-09-17 15:27 CEST by Robert Courtright
Modified: 2015-11-02 21:22 CET (History)
7 users (show)

See Also:
Source RPM: perl-Tk-804.32.0-2.mga5
CVE:
Status comment:


Attachments

Description Robert Courtright 2014-09-17 15:27:34 CEST
Description of problem:
When using a existing perl program that uses perl-Tk it crashes the program


Version-Release number of selected component (if applicable):
perl-Tk-804.32.0-2.mga5

How reproducible:
evey time trying to acces the program

Steps to Reproduce:
1. Use an existing perl program the uses perl-Tk and run it.
2.
3.

Here is my error messgae:

e71a38 is not a hash at /usr/lib/perl5/vendor_perl/5.20.0/x86_64-linux-thread-multi/Tk/MainWindow.pm line 53, <In_File> line 201.
Aborted


Reproducible: 

Steps to Reproduce:
David Walser 2014-09-17 20:59:22 CEST

CC: (none) => thierry.vignaud
Assignee: bugsquad => jquelin

Comment 1 Jerome Quelin 2014-10-02 09:26:18 CEST
I guess you were caught in the middle of the mass rebuild. I don't see this problem anymore. Can you confirm? If yes, please close as invalid.

CC: (none) => jquelin

Comment 2 Robert Courtright 2014-10-02 13:44:57 CEST
Nope same problem.

Same program run fine with Mageia4
Comment 3 Alex Loginov 2014-12-24 08:51:06 CET
*** Bug 14540 has been marked as a duplicate of this bug. ***

CC: (none) => loginov_alex

Comment 4 Alex Loginov 2014-12-24 08:53:18 CET
I confirm perl-Tk is broken:

#!/usr/bin/perl -w
        
use Tk;
use strict;
        
my $mw = MainWindow->new;
$mw->geometry("200x100");
$mw->title("Hello World!!!");
$mw->Label(-text => 'Hello World')->pack();
$mw->Button(-text => "Close", -command =>sub{exit})->pack();

MainLoop;

You can reproduce in opengrade also.
Comment 5 Robert Courtright 2015-05-10 16:37:53 CEST
Is anyone looking into this bug?
Comment 6 Samuel Verschelde 2015-05-13 16:01:53 CEST
(In reply to Robert  Courtright from comment #5)
> Is anyone looking into this bug?

Not for now. I suppose Jerome is busy. Raising severity to critical since it does not work at all, and priority to high because we will need an update rather quickly after Mageia 5 is released.

Whiteboard: (none) => MGA5TOO
Priority: Normal => High
Severity: normal => critical

Comment 7 Jerome Quelin 2015-06-22 10:45:38 CEST
Sorry but I am very very low on tuits those days. Cannot investigate any bugs nor update my packages. In this particular case though, I'd like to point out that I cannot reproduce - I am routinely using perl/tk apps on my box.
Comment 8 Samuel Verschelde 2015-06-22 12:43:03 CEST
(In reply to Jerome Quelin from comment #7)
> Sorry but I am very very low on tuits those days. Cannot investigate any
> bugs nor update my packages. In this particular case though, I'd like to
> point out that I cannot reproduce - I am routinely using perl/tk apps on my
> box.

Strange. 2 different users reported this bug. Does example from comment #4 work?

CC: (none) => mageia

Comment 9 Christoph Gröver 2015-06-24 19:58:06 CEST
Installed Mageia5 and I can confirm this bug.
The short example code (#4) aborts also.

I have some perlTk-scripts which abort this way.

Someone suggested that there might be an underlying X11-problem?
Missing symlink for rgb.txt or something?

CC: (none) => grover
Version: Cauldron => 5

Comment 10 Thierry Vignaud 2015-06-24 21:39:25 CEST
Well only someone that can reproduce can eg strace it in order to see if it lacks a requires on something...

Summary: Any use of perl-tk crashes => Any use of perl-tk crashes (missing requires?)

Comment 11 Christoph Gröver 2015-06-24 21:47:40 CEST
I strace'd the command:

perl -MTk -e '$mw = new MainWindow'

And it's here:
http://justpaste.it/lyh1
Comment 12 Christoph Gröver 2015-06-26 02:01:39 CEST
What about this bug report and fix?
Connected to this problem somehow?

https://rt.cpan.org/Public/Bug/Display.html?id=96543
Comment 13 Christoph Gröver 2015-06-26 14:56:27 CEST
I decided to compile the current perl-Tk myself.

Took Tk-804.033.tar.gz from CPAN ... had to install perl-devel-5.20.1-8.mga5 and
regexp-1.5-4.mga5 for the compilation ...

But finally I can use my many perl-Tk applications again.
I was really desperate - to tell you the truth ;-).
Comment 14 Vince45 2015-06-26 15:32:47 CEST
@Christoph Gröver

Thank you so much for your tip !!!! Now we can use Mageia 5 !!!

Vince

CC: (none) => vince.7145

Comment 15 Robert Courtright 2015-08-15 19:40:51 CEST
So when will an updated rpm be available?
Comment 16 Alex Loginov 2015-09-21 14:19:14 CEST
Jerome, perl-Tk-804.33.0-2.mga6 from Cauldron is workable.
Will you provide an update for mga5?
Comment 17 Alex Loginov 2015-11-01 20:25:24 CET
I have uploaded a updated package for Mageia 5.

Advisory:
========================

Updated perl-Tk package fix crash for any use of perl-Tk

========================

Updated package in core/updates_testing:
========================
perl-Tk-804.33.0-1.mga5


Source RPM:
perl-Tk-804.33.0-1.mga5.src.rpm


Steps to reproduce for QA:
- install and run opengrade
- opengrade does not start
- update perl-Tk-804.33.0-1.mga5 and run opengrade again
- opengrade starts successfully.

Assignee: jquelin => qa-bugs
Summary: Any use of perl-tk crashes (missing requires?) => Any use of perl-tk crashes

Comment 18 claire robinson 2015-11-02 16:31:35 CET
Testing mga5 32 with one liner from comment 11

Before
======
$ perl -MTk -e '$mw = new MainWindow'
Segmentation fault

After
=====
$ perl -MTk -e '$mw = new MainWindow'
$ echo $?
0

Whiteboard: MGA5TOO => MGA5TOO has_procedure mga5-32-ok

claire robinson 2015-11-02 16:52:12 CET

Keywords: (none) => validated_update
CC: (none) => sysadmin-bugs

Comment 19 claire robinson 2015-11-02 17:00:47 CET
Advisory uploaded.
claire robinson 2015-11-02 17:06:55 CET

Whiteboard: MGA5TOO has_procedure mga5-32-ok => MGA5TOO has_procedure advisory mga5-32-ok

Comment 20 Robert Courtright 2015-11-02 17:59:49 CET
I did per Alex on 2 machines. Both perl-Tk are working now.
No more going back to 4 to update and test perl programs anymore.
Comment 21 claire robinson 2015-11-02 18:59:31 CET
Thanks for confirming Robert. This will now be pushed as an official update with the next batch.
Comment 22 Mageia Robot 2015-11-02 21:22:11 CET
An update for this issue has been pushed to Mageia Updates repository.

http://advisories.mageia.org/MGAA-2015-0165.html

Status: NEW => RESOLVED
Resolution: (none) => FIXED


Note You need to log in before you can comment on or make changes to this bug.