r77026 - in /trunk/libdbd-odbc-perl/debian: changelog rules

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Sun Jul  3 20:52:08 2011
New Revision: 77026

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77026
Log:
Some example scripts did not have correct permissions or any shebang

Modified:
    trunk/libdbd-odbc-perl/debian/changelog
    trunk/libdbd-odbc-perl/debian/rules

Modified: trunk/libdbd-odbc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-odbc-perl/debian/changelog?rev=77026&op=diff
==============================================================================
--- trunk/libdbd-odbc-perl/debian/changelog (original)
+++ trunk/libdbd-odbc-perl/debian/changelog Sun Jul  3 20:52:08 2011
@@ -5,6 +5,7 @@
 
   * New upstream release
   * Raised standards version to 3.9.2
+  * Some example scripts did not have correct permissions or any shebang
 
  -- Nicholas Bamber <nicholas at periapt.co.uk>  Thu, 30 Jun 2011 09:14:36 +0100
 

Modified: trunk/libdbd-odbc-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-odbc-perl/debian/rules?rev=77026&op=diff
==============================================================================
--- trunk/libdbd-odbc-perl/debian/rules (original)
+++ trunk/libdbd-odbc-perl/debian/rules Sun Jul  3 20:52:08 2011
@@ -33,13 +33,18 @@
 
 override_dh_installexamples:
 	dh_installexamples
+	sed -i '1s|^##!/usr/bin/perl|#!/usr/bin/perl|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
 	sed -i '1s|^#!perl|#!/usr/bin/perl|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
+	sed -i '1s|^#/usr/bin/perl|#!/usr/bin/perl|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
 	sed -i '1s|^#!/usr/bin/perl.exe|#!/usr/bin/perl|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
 	sed -i '1s|^#!c:/programme/perl/bin/perl.exe|#!/usr/bin/perl|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
+	sed -i '1s|^\(#[^!].\+\)|#!/usr/bin/perl\n\1|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*.pl
+	sed -i '1s|^\(use strict;\)|#!/usr/bin/perl\n\1|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*.pl
+	sed -i '1s|^\(use DBI;\)|#!/usr/bin/perl\n\1|' $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*.pl
 
 override_dh_fixperms:
 	dh_fixperms
-	chmod 644 $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*
+	chmod 755 $(TMP)/usr/share/doc/libdbd-odbc-perl/examples/*.pl
 
 override_dh_installchangelogs:
 	pod2text Changes > debian/Changes.txt