Sign in
googlers
/
jrn
/
git
/
9f6714ab3e61ad58c4532077d4b8dc807ff0410d
/
.
/
t
/
chainlint
/
sqstring-in-sqstring.test
blob: 77a425e0c795c5253b54a6cc9dd67df8d7d46f64 [
file
] [
log
] [
blame
]
# LINT: SQ-string Perl code fragment within SQ-string
perl
-
e
'\''
defined
(
$_
=
-
s $_
)
or
die
for
@ARGV
;
exit
1
if
$ARGV
[
0
]
<=
$ARGV
[
1
];
'\''
test
-
2
-
$packname_2
.
pack test
-
3
-
$packname_3
.
pack