← Back to branch summary

~ubuntu-branches/ubuntu/trusty/xscreensaver/trusty

« back to all changes in this revision

Viewing changes to OSX/update-info-plist.pl

  • Committer: Bazaar Package Importer
  • Author(s): Robert Ancell
  • Date: 2009-11-30 13:33:13 UTC
  • mfrom: (1.1.8 upstream) (2.1.6 squeeze)
  • Revision ID: james.westby@ubuntu.com-20091130133313-3b5nz2e7hvbb8h3l
Tags: 5.10-3ubuntu1
https://launchpad.net/bugs/489062
* Merge with Debian unstable, remaining changes: (LP: #489062)
  - debian/control: add Build-Depends on ubuntu-artwork
  - debian/rules: use /usr/share/backgrounds
  - debian/control: Move xli | xloadimage recommends to suggests
  - debian/split-hacks.config: Use different set of default hacks to Debian
  - debian/source_xscreensaver.py: Add apport hook
  - debian/patches/53_XScreenSaver.ad.in.patch: Use Ubuntu branding

Show diffs side-by-side

added added

removed removed

Lines of Context:
OSX/update-info-plist.pl
1
1
#!/usr/bin/perl -w
2
 
# Copyright � 2006-2008 Jamie Zawinski <jwz@jwz.org>
 
2
# Copyright � 2006-2009 Jamie Zawinski <jwz@jwz.org>
3
3
#
4
4
# Permission to use, copy, modify, distribute, and sell this software and its
5
5
# documentation for any purpose is hereby granted without fee, provided that
23
23
use strict;
24
24
 
25
25
my $progname = $0; $progname =~ s@.*/@@g;
26
 
my $version = q{ $Revision: 1.10 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
26
my $version = q{ $Revision: 1.13 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
27
27
 
28
28
my $verbose = 1;
29
29
 
72
72
  $desc =~ s/\s*$//s;
73
73
 
74
74
  # in case it's done already...
 
75
  $desc =~ s@<!--.*?-->@@gs;
75
76
  $desc =~ s/^.* version \d[^\n]*\n//s;
76
77
  $desc =~ s/^From the XScreenSaver.*\n//m;
77
78
  $desc =~ s@^http://www\.jwz\.org/xscreensaver.*\n@@m;
108
109
  #
109
110
  my $curator = "Jamie Zawinski";
110
111
  if (! ($authors =~ m/$curator/si)) {
111
 
    if ($authors =~ m@^(.*),? and (.*)$@s) {
 
112
    if ($authors =~ m@^(.*?),? and (.*)$@s) {
112
113
      $authors = "$1, $2, and $curator";
113
114
    } else {
114
115
      $authors .= " and $curator";
217
218
  $copyright =~ s/\b\d{4}-(\d{4})\b/$1/;
218
219
 
219
220
  # Lose the Wikipedia URLs.
220
 
  $info_str =~ s@http:.*\bwikipedia\b[^\s]+[ \t]*\n?@@gm;
 
221
  $info_str =~ s@http:.*?\b(wikipedia|mathworld)\b[^\s]+[ \t]*\n?@@gm;
221
222
 
222
223
  $info_str =~ s/(\n\n)\n+/$1/gs;
223
224
  $info_str =~ s/(^\s+|\s+$)//gs;