Hi Garu, # This line is causing an error on Ubuntu due to some Wx problems. # see https://bugs.launchpad.net/ubuntu/+source/padre/+bug/485012 # Supporting Ubuntu seems to be more important than having this text: $search->SetDescriptiveText( Wx::gettext('Search') ) if Padre::Constant::DISTRO ne 'UBUNTU';
That's why :) For the changeset, please see http://padre.perlide.org/trac/changeset/13277 The discussion in #padre started out here http://irclog.perlgeek.de/padre/2010-11-29#i_3040097 A fix of the issue for wxperl on ubuntu was posted by (Johan Vromans)++ on wxperl users mailing list http://www.nntp.perl.org/group/perl.wxperl.users/2010/11/msg7753.html Thanks for your reply, Ahmad M. Zawawi (azawawi) On Sun, Dec 5, 2010 at 7:17 PM, breno <br...@rio.pm.org> wrote: > On Sun, Dec 5, 2010 at 5:07 AM, Gabor Szabo <szab...@gmail.com> wrote: > > Isn't there a CPAN module that can do what the DISTRO constant provides? > > If not, then IMHO there should be :) > > > > For general OS mapping, File::Spec has a scoped $module variable > mapped after a simple hash, but I'm assuming you meant figuring out > the specific linux distro, not the mac/windows part (as that's > provided by $^O already with little to no further effort). For that, > there is the old and buggy Linux::Distribution package, which could do > what you expect. Probe::MachineInfo::Distribution is also there, but > my money would be on Sys::Info::Driver::Linux::OS::Distribution, from > just a couple of months ago and aparently an improved version of the > original Linux::Distribution. > > That said, do we really need to know about distros? > > Cheers > > garu > > > > > On Mon, Nov 29, 2010 at 5:34 PM, <s...@perlide.org> wrote: > >> Author: Sewi > >> See also: http://padre.perlide.org/changeset/13279 > >> Date: 2010-11-29 07:34:47 -0800 (Mon, 29 Nov 2010) > >> New Revision: 13279 > >> > >> Modified: > >> trunk/Padre/lib/Padre/Constant.pm > >> trunk/Padre/lib/Padre/Wx/Directory.pm > >> Log: > >> Update for r13277: > >> - Add Padre::Constant::DISTRO > >> - Re-enable the line when not on Ubuntu > >> > >> > >> Modified: trunk/Padre/lib/Padre/Constant.pm > >> =================================================================== > >> --- trunk/Padre/lib/Padre/Constant.pm 2010-11-29 14:51:53 UTC (rev > 13278) > >> +++ trunk/Padre/lib/Padre/Constant.pm 2010-11-29 15:34:47 UTC (rev > 13279) > >> @@ -13,6 +13,8 @@ > >> our $VERSION = '0.75'; > >> our $BACKCOMPATIBLE = '0.57'; > >> > >> +our $DISTRO; > >> + > >> # Convenience constants for the operating system > >> use constant WIN32 => !!( ( $^O eq 'MSWin32' ) or ( $^O eq 'cygwin' ) > ); > >> use constant MAC => !!( $^O eq 'darwin' ); > >> @@ -126,10 +128,35 @@ > >> init(); > >> } > >> > >> +sub DISTRO { > >> + return $DISTRO if defined($DISTRO); > >> + > >> + if (WIN32) { > >> + $DISTRO = 'WIN'; > >> + } > >> + elsif (MAC) { > >> + $DISTRO = 'MAC'; > >> + } else { > >> + # Try to identify the distro > >> + if (open my $lsb_file,'<','/etc/lsb-release') { > >> + while (<$lsb_file>) { > >> + next unless /^DISTRIB_ID\=(.+?)[\r\n]/; > >> + if ($1 eq 'Ubuntu') { > >> + $DISTRO = 'UBUNTU'; > >> + } > >> + last; > >> + } > >> + } > >> + } > >> + > >> + $DISTRO ||= 'UNKNOWN'; > >> > >> + return $DISTRO if defined($DISTRO); > >> +} > >> > > _______________________________________________ > > Padre-dev mailing list > > Padre-dev@perlide.org > > http://mail.perlide.org/mailman/listinfo/padre-dev > > > _______________________________________________ > Padre-dev mailing list > Padre-dev@perlide.org > http://mail.perlide.org/mailman/listinfo/padre-dev >
_______________________________________________ Padre-dev mailing list Padre-dev@perlide.org http://mail.perlide.org/mailman/listinfo/padre-dev
