Author: adam-guest
Date: 2008-03-15 15:58:56 +0000 (Sat, 15 Mar 2008)
New Revision: 1138
Modified:
trunk/scripts/checkbashisms.pl
Log:
Don't quote q<> strings
Modified: trunk/scripts/checkbashisms.pl
===================================================================
--- trunk/scripts/checkbashisms.pl 2008-03-15 15:52:36 UTC (rev 1137)
+++ trunk/scripts/checkbashisms.pl 2008-03-15 15:58:56 UTC (rev 1138)
@@ -192,17 +192,17 @@
);
if ($opt_echo) {
- $bashisms{'echo\s+-[n]'} = 'q<echo -n>';
+ $bashisms{'echo\s+-[n]'} = q<echo -n>;
}
if ($opt_extra) {
- $string_bashisms{'\$\{?BASH\}?\b'} = 'q<$BASH>';
- $string_bashisms{'(?:^|\s+)RANDOM='} = 'q<RANDOM=>';
- $string_bashisms{'(?:^|\s+)(OS|MACH)TYPE='} =
'q<(OS|MACH)TYPE=>';
- $string_bashisms{'(?:^|\s+)HOST(TYPE|NAME)='} =
'q<HOST(TYPE|NAME)=>';
- $string_bashisms{'(?:^|\s+)DIRSTACK='} = 'q<DIRSTACK=>';
- $string_bashisms{'(?:^|\s+)EUID='} = 'q<EUID=>';
- $string_bashisms{'(?:^|\s+)BASH(_[A-Z]+)?='} =
'q<BASH(_SOMETHING)=>';
+ $string_bashisms{'\$\{?BASH\}?\b'} = q<$BASH>;
+ $string_bashisms{'(?:^|\s+)RANDOM='} = q<RANDOM=>;
+ $string_bashisms{'(?:^|\s+)(OS|MACH)TYPE='} = q<(OS|MACH)TYPE=>;
+ $string_bashisms{'(?:^|\s+)HOST(TYPE|NAME)='} =
q<HOST(TYPE|NAME)=>;
+ $string_bashisms{'(?:^|\s+)DIRSTACK='} = q<DIRSTACK=>;
+ $string_bashisms{'(?:^|\s+)EUID='} = q<EUID=>;
+ $string_bashisms{'(?:^|\s+)BASH(_[A-Z]+)?='} =
q<BASH(_SOMETHING)=>;
}
my $line = $_;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
