imapsync/W/learn/perlcritic_ProhibitInterpolationOfLiterals
Nick Bebout 137242e609 1.727
2016-09-19 10:17:24 -05:00

16 lines
262 B
Perl
Executable file

#!/usr/bin/perl
# $Id: perlcritic_ProhibitInterpolationOfLiterals,v 1.3 2016/06/15 22:18:23 gilles Exp gilles $
use strict;
use warnings;
our $VERSION = q$Revision: 1.3 $;
if ( "\1foo" eq '\1foo' ) {
print "equal\n";
}
else {
print "not equal\n";
}