view release on metacpan or  search on metacpan

tools/disable_smart_comments  view on Meta::CPAN

          ) or pod2usage(2);

pod2usage(1) if $help;

pod2usage(-exitstatus => 2, -verbose => 2) unless $distdir;

my @files = map { catfile($distdir,$_) } @ARGV;

foreach my $file (@files) {
	print "Disabling Smart::Comments on $file\n" if $verbose;
	local @ARGV = ($file);
	local $^I = '';
	while (<>) {
		s/^(use\s+Smart::Comments.+)$/# $1/;
		print;
	}
}
	
__END__

=head1 NAME