Product: Fedora https://bugzilla.redhat.com/show_bug.cgi?id=849703
Jan Pazdziora jpazdziora@redhat.com changed:
What |Removed |Added ---------------------------------------------------------------------------- CC| |jpazdziora@redhat.com Version|16 |17
--- Comment #5 from Jan Pazdziora jpazdziora@redhat.com --- Issue still present on Fedora 17:
$ rpm -q perl perl-5.14.3-218.fc17.i686 $ perl #!/usr/bin/env perl
sub sighup { my $bar="This-Has-Dashes-HUP"; $bar=~s/.*-//; print "$bar\n";
}
$SIG{'HUP'}=&sighup;
system("while true ; do kill -HUP $$ ; sleep 1 ; done &");
$SIG{'HUP'}=&sighup;
while (1) { my $foo="This:Has:Colons"; $foo=~s/.*://; if ($foo=~m/:/) { print "BUG!!: $foo\n"; } } __END__ HUP BUG!!: This:Has:Colons HUP HUP HUP BUG!!: This:Has:Colons HUP BUG!!: This:Has:Colons HUP BUG!!: This:Has:Colons HUP HUP ^C