← Back to branch summary

~ubuntu-branches/ubuntu/wily/padre/wily

« back to all changes in this revision

Viewing changes to lib/Padre/Plugin.pm

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2009-05-09 18:19:53 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090509181953-ttew3adppp057nha
Tags: 0.35-1
* New Upstream Version

* install eg/ as examples only in padre (not also in libwx-perl-
  dialog-perl)
* mention --pristine-tar in README.source
* add disable-tcp-server.patch
  the tcp server is used for communication with running instance of padre.
  Although it only listens on 127.0.0.1, there is no measures taken to
  ensure that the user connecting to the server is the same as the user
  running padre.
* add README.debian documenting changes in the package compared to
  upstream sources

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Plugin.pm
46
46
use warnings;
47
47
use Carp ();
48
48
use File::Spec::Functions qw{ catdir };
49
 
use File::ShareDir ();
50
 
use Scalar::Util   ();
51
 
use Params::Util   ( '_HASH0', '_INSTANCE' );
52
 
use YAML::Tiny     ();
53
 
use Padre::DB      ();
54
 
use Padre::Wx      ();
 
49
use Scalar::Util ();
 
50
use Params::Util ( '_HASH0', '_INSTANCE' );
 
51
use YAML::Tiny   ();
 
52
use Padre::DB    ();
 
53
use Padre::Wx    ();
55
54
 
56
 
our $VERSION    = '0.34';
 
55
our $VERSION    = '0.35';
57
56
our $COMPATIBLE = '0.18';
58
57
 
59
58
# Link plugins back to their IDE
104
103
know where to look for your plugin l10n catalog.
105
104
 
106
105
It defaults to C<$sharedir/locale> (with C<$sharedir> as defined by
107
 
C<File::ShareDir>), and thus should work as is for your plugin if you're
 
106
C<File::ShareDir> or more specifically by C<File::ShareDir::PAR>),
 
107
and thus should work as is for your plugin if you're
108
108
using the C<install_share> command of C<Module::Install>.
109
109
 
110
110
Your plugin catalogs should be named C<$plugin-$locale.po> (or C<.mo>
118
118
        my $pkg = ref($self) || $self;
119
119
        $pkg =~ s/::/-/g;
120
120
 
 
121
        require File::ShareDir::PAR;
121
122
        my $distdir;
122
 
        eval { $distdir = File::ShareDir::dist_dir($pkg); };
 
123
        eval { $distdir = File::ShareDir::PAR::dist_dir($pkg); };
123
124
        return $@ ? undef : catdir( $distdir, 'share', 'locale' );
124
125
}
125
126