File: 40_perl-path_examples.dpatch

package info (click to toggle)
libnet-dns-perl 0.63-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 836 kB
  • ctags: 425
  • sloc: perl: 6,796; sh: 109; ansic: 104; makefile: 59
file content (115 lines) | stat: -rw-r--r-- 4,190 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#! /bin/sh -e
## 40_perl-path_examples.dpatch by  <fh@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Correct perl path for examples.

if [ $# -lt 1 ]; then
    echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
    exit 1
fi

[ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
patch_opts="${patch_opts:--f --no-backup-if-mismatch} ${2:+-d $2}"

case "$1" in
    -patch) patch -p1 ${patch_opts} < $0;;
    -unpatch) patch -R -p1 ${patch_opts} < $0;;
    *)
        echo "`basename $0`: script expects -patch|-unpatch as argument" >&2
        exit 1;;
esac

exit 0

@DPATCH@
diff -urNad libnet-dns-perl~/contrib/check_zone libnet-dns-perl/contrib/check_zone
--- libnet-dns-perl~/contrib/check_zone	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/contrib/check_zone	2007-07-01 17:55:04.436946249 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: check_zone 638 2007-05-15 18:59:26Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/contrib/loc2earth.fcgi libnet-dns-perl/contrib/loc2earth.fcgi
--- libnet-dns-perl~/contrib/loc2earth.fcgi	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/contrib/loc2earth.fcgi	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -T
+#!/usr/bin/perl -T
 
 # loc2earth.cgi - generates a redirect to Earth Viewer based on LOC record
 # [ see <URL: http://www.kei.com/homepages/ckd/dns-loc/ > or RFC 1876 ]
diff -urNad libnet-dns-perl~/demo/axfr libnet-dns-perl/demo/axfr
--- libnet-dns-perl~/demo/axfr	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/axfr	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: axfr 264 2005-04-06 09:16:15Z olaf $
 
 use strict;
diff -urNad libnet-dns-perl~/demo/check_soa libnet-dns-perl/demo/check_soa
--- libnet-dns-perl~/demo/check_soa	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/check_soa	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: check_soa 264 2005-04-06 09:16:15Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/demo/check_zone libnet-dns-perl/demo/check_zone
--- libnet-dns-perl~/demo/check_zone	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/check_zone	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: check_zone 264 2005-04-06 09:16:15Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/demo/example_recurse.pl libnet-dns-perl/demo/example_recurse.pl
--- libnet-dns-perl~/demo/example_recurse.pl	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/example_recurse.pl	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 # Example usage for Net::DNS::Resolver::Recurse
 # Performs recursion for a query.
diff -urNad libnet-dns-perl~/demo/mresolv libnet-dns-perl/demo/mresolv
--- libnet-dns-perl~/demo/mresolv	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/mresolv	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: mresolv 264 2005-04-06 09:16:15Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/demo/mx libnet-dns-perl/demo/mx
--- libnet-dns-perl~/demo/mx	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/mx	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: mx 264 2005-04-06 09:16:15Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/demo/perldig libnet-dns-perl/demo/perldig
--- libnet-dns-perl~/demo/perldig	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/perldig	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # $Id: perldig 264 2005-04-06 09:16:15Z olaf $
 
 =head1 NAME
diff -urNad libnet-dns-perl~/demo/trace_dns.pl libnet-dns-perl/demo/trace_dns.pl
--- libnet-dns-perl~/demo/trace_dns.pl	2007-07-01 17:25:20.000000000 +0200
+++ libnet-dns-perl/demo/trace_dns.pl	2007-07-01 17:25:41.733892017 +0200
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 use strict;
 use warnings;