← Back to branch summary

~ubuntu-branches/ubuntu/quantal/libglib-perl/quantal

« back to all changes in this revision

Viewing changes to .pc/fix-gtks-whatis/lib/Glib/GenPod.pm

  • Committer: Package Import Robot
  • Author(s): Alessandro Ghedini
  • Date: 2012-03-02 15:35:04 UTC
  • mfrom: (9.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20120302153504-4abua3qbwpfh27g6
Tags: 2:1.251-1
* New upstream release
* Drop fix-pod-spelling.patch (merged upstream)
* Update upstream copyright years
* Bump debhelper compat level to 9
* Update debian/copyright format as in Debian Policy 3.9.3
* Bump Standards-Version to 3.9.3
* Fix upstream copyirght holder
* Use NEWS file as upstream changelog

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/fix-gtks-whatis/lib/Glib/GenPod.pm
411
411
        bool     => 'boolean', # C++ keyword, but provided by the perl api
412
412
        boolean  => 'boolean',
413
413
        int      => 'integer',
414
 
        char     => 'integer',
415
414
        uint     => 'unsigned',
416
415
        float    => 'double',
417
416
        double   => 'double',
602
601
    # eg. Gtk2::Paned property "max-position" is INT_MAX
603
602
    $default = "INT_MAX";
604
603
  } elsif ($type eq 'Glib::Int' && $default == POSIX::INT_MIN()) {
605
 
    $default = "INT_MAX";
 
604
    $default = "INT_MIN";
606
605
  } elsif ($type eq 'Glib::UInt' && $default == POSIX::UINT_MAX()) {
607
606
    $default = "UINT_MAX";
608
607
 
1217
1216
                      \s*$/x;                           # trailing space
1218
1217
        my $ctype   = $1 || '!!';
1219
1218
        if ($ctype eq '!!') {
1220
 
                warn "Glib::GenPod: Unable to parse type `$typestr´";
 
1219
                warn "Glib::GenPod: Unable to parse type '$typestr'";
1221
1220
        }
1222
1221
 
1223
1222
        # variant type
1540
1539
 
1541
1540
=head1 COPYRIGHT AND LICENSE
1542
1541
 
1543
 
Copyright (C) 2003-2004, 2010, 2011 by the gtk2-perl team
 
1542
Copyright (C) 2003-2004, 2010-2012 by the gtk2-perl team
1544
1543
 
1545
1544
This library is free software; you can redistribute it and/or modify
1546
 
it under the terms of the Lesser General Public License (LGPL).  For 
 
1545
it under the terms of the Lesser General Public License (LGPL).  For
1547
1546
more information, see http://www.fsf.org/licenses/lgpl.txt
1548
1547
 
1549
1548
=cut