[Lsb-messages] /var/www/bzr/lsb/devel/lsbappchk-sh r19: Fix lsbappchk-sh.pl so it runs with perl 5.8 (bug 3308)

[Stew Benedict]

------------------------------------------------------------
revno: 19
committer: Stew Benedict <stewb at linux-foundation.org>
branch nick: lsbappchk-sh
timestamp: Mon 2012-03-19 12:40:53 -0400
message:
  Fix lsbappchk-sh.pl so it runs with perl 5.8 (bug 3308)
modified:
  bin/lsbappchk-sh.pl
  scripts/package/Makefile
-------------- next part --------------
=== modified file 'bin/lsbappchk-sh.pl'
--- a/bin/lsbappchk-sh.pl	2011-03-03 14:03:22 +0000
+++ b/bin/lsbappchk-sh.pl	2012-03-19 16:40:53 +0000
@@ -792,12 +792,10 @@
 		
 		if ( $line =~ /^[A-Za-z_][A-Za-z_0-9]*[#%]/ ) {
 			# OK, do nothing
-		}
-		elsif ( $line =~ /^[A-Za-z_][A-Za-z_0-9]*\// ) {
+		}elsif ( $line =~ /^[A-Za-z_][A-Za-z_0-9]*\// ) {
 			tp_result 'FAIL', file_pos($parser)
 					."'\${$line}': Pattern replacement is a bashism. Use 'sed' instead.";
-		}
-		elsif ( $line =~ /^[A-Za-z_][A-Za-z_0-9]*+(:?+[^\-=\?\+\[]|\/)/ ) {
+		}elsif ( $line =~ m/\Q^[A-Za-z_A-Za-z_0-9]+(:?+[^\-=\?\+\[]|\/)\E/ ) {
 			tp_result 'FAIL', file_pos($parser)."'\${$line}': Unportable parameter expansion or bad substitution.";
 		}
 		
@@ -805,7 +803,7 @@
 			tp_result 'FAIL', file_pos($parser)."'\${$line}' - indirect expansion isn't portable.";
 		}
 		
-		if ( $line =~ s/^!?(\w++(\[.*)?+)[:\-=\?\+\/]?.*/$1/ ) {
+		if ( $line =~ s/\Q^!?(\w+(\[.*)?+)[:\-=\?\+\/]?.*\E/$1/ ) {
 			&$checkvar($line);
 		}
 		

=== modified file 'scripts/package/Makefile'
--- a/scripts/package/Makefile	2012-02-17 17:05:07 +0000
+++ b/scripts/package/Makefile	2012-03-19 16:40:53 +0000
@@ -1,7 +1,7 @@
 # values used to make .spec from .spec.sed
 PACKAGE=lsb-appchk-shell
-VERSION=4.1.0
-RELEASE=3
+VERSION=4.1.1
+RELEASE=1
 EYAPP_VER=1.181
 EYAPP_URL=http://search.cpan.org/CPAN/authors/id/C/CA/CASIANO/