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;
|