← Back to branch summary

~ubuntu-branches/ubuntu/precise/gnome-osd/precise

« back to all changes in this revision

Viewing changes to intltool-update.in

  • Committer: Bazaar Package Importer
  • Author(s): Adriaan Peeters
  • Date: 2006-07-07 13:39:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060707133921-vx1ub2goh6px4j3d
Tags: 0.11.1-1
http://bugs.debian.org/366497
* New upstream release
  - Fixes #375789 for gnome-screensaver but not yet for xscreensaver
* Added gnomeosd.eventbridge.py.patch: fixes deprecation warning on
  startup (Closes: #366497)
* debian/control:
  - Bumped Standards-Version: 3.7.2, no changes needed
  - Added Uploaders: Loic Minier <lool@dooz.org>

Show diffs side-by-side

added added

removed removed

Lines of Context:
intltool-update.in
30
30
 
31
31
## Release information
32
32
my $PROGRAM = "intltool-update";
33
 
my $VERSION = "0.34.2";
 
33
my $VERSION = "0.35.0";
34
34
my $PACKAGE = "intltool";
35
35
 
36
36
## Loaded modules
125
125
&Console_Write_IntltoolHelp if $arg_count > 1;
126
126
 
127
127
# --version and --help don't require a module name
128
 
my $MODULE = $GETTEXT_PACKAGE || &FindPackageName;
 
128
my $MODULE = $GETTEXT_PACKAGE || &FindPackageName || "unknown";
129
129
 
130
130
if ($POT_ARG)
131
131
{
722
722
                           "--files-from\=\.\/POTFILES\.in\.temp");
723
723
    my $XGETTEXT_KEYWORDS = &FindPOTKeywords;
724
724
    push @xgettext_argument, $XGETTEXT_KEYWORDS;
 
725
    my $MSGID_BUGS_ADDRESS = &FindMakevarsBugAddress;
 
726
    push @xgettext_argument, "--msgid-bugs-address\=$MSGID_BUGS_ADDRESS" if $MSGID_BUGS_ADDRESS;
725
727
    push @xgettext_argument, "--from-code\=$encoding" if ($gettext_support_nonascii);
726
728
    push @xgettext_argument, $XGETTEXT_ARGS if $XGETTEXT_ARGS;
727
729
    my $xgettext_command = join ' ', @xgettext_argument;
874
876
    {
875
877
        my $rest = $3;
876
878
        my $untouched = $1;
877
 
        my $sub = $varhash{$2};
878
 
        
 
879
        my $sub = "";
 
880
        # Ignore recursive definitions of variables
 
881
        $sub = $varhash{$2} if defined $varhash{$2} and $varhash{$2} !~ /\${?$2}?/;
 
882
 
879
883
        return SubstituteVariable ("$untouched$sub$rest");
880
884
    }
881
885
    
992
996
        ($name, $version) = ($1, $2);
993
997
        $name    =~ s/[\[\]\s]//g;
994
998
        $version =~ s/[\[\]\s]//g;
995
 
        $varhash{"PACKAGE_NAME"} = $name;
996
 
        $varhash{"PACKAGE"} = $name;
997
 
        $varhash{"PACKAGE_VERSION"} = $version;
998
 
        $varhash{"VERSION"} = $version;
 
999
        $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\${?AC_PACKAGE_NAME}?/);
 
1000
        $varhash{"PACKAGE"} = $name if (not $name =~ /\${?PACKAGE}?/);
 
1001
        $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\${?AC_PACKAGE_VERSION}?/);
 
1002
        $varhash{"VERSION"} = $version if (not $name =~ /\${?VERSION}?/);
999
1003
    }
1000
1004
    
1001
1005
    if ($conf_source =~ /^AC_INIT\(([^,\)]+),([^,\)]+)/m) 
1003
1007
        ($name, $version) = ($1, $2);
1004
1008
        $name    =~ s/[\[\]\s]//g;
1005
1009
        $version =~ s/[\[\]\s]//g;
1006
 
        $varhash{"PACKAGE_NAME"} = $name;
1007
 
        $varhash{"PACKAGE"} = $name;
1008
 
        $varhash{"PACKAGE_VERSION"} = $version;
1009
 
        $varhash{"VERSION"} = $version;
 
1010
        $varhash{"PACKAGE_NAME"} = $name if (not $name =~ /\${?AC_PACKAGE_NAME}?/);
 
1011
        $varhash{"PACKAGE"} = $name if (not $name =~ /\${?PACKAGE}?/);
 
1012
        $varhash{"PACKAGE_VERSION"} = $version if (not $name =~ /\${?AC_PACKAGE_VERSION}?/);
 
1013
        $varhash{"VERSION"} = $version if (not $name =~ /\${?VERSION}?/);
1010
1014
    }
1011
1015
 
1012
1016
    # \s makes this not work, why?
1063
1067
    
1064
1068
    return $domain;
1065
1069
}
 
1070
 
 
1071
sub FindMakevarsBugAddress
 
1072
{
 
1073
 
 
1074
    my $address = "";
 
1075
    my $makevars_source; { 
 
1076
        local (*IN);
 
1077
        open (IN, "<Makevars") || return undef;
 
1078
        seek (IN, 0, 0);
 
1079
        local $/; # slurp mode
 
1080
        $makevars_source = <IN>;
 
1081
        close IN;
 
1082
    }
 
1083
 
 
1084
    $address = $1 if $makevars_source =~ /^MSGID_BUGS_ADDRESS[ ]*=\[?([^\n\]\$]+)/m;
 
1085
    $address =~ s/^\s+//;
 
1086
    $address =~ s/\s+$//;
 
1087
    
 
1088
    return $address;
 
1089
}