diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-21 18:35:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-24 16:25:58 +0000 |
| commit | e1ec3a884f8d8c64eb7e391b2a363f47cbeed570 (patch) | |
| tree | 13e83e61449ed542f309f1cd88e7ed42778ca543 /minimod.pl | |
| parent | 2bbb3949e88673e7f0574ab70254a46d776242e9 (diff) | |
| download | perl-e1ec3a884f8d8c64eb7e391b2a363f47cbeed570.tar.gz | |
Third consting batch
Message-Id: <2f14220e7101a03f7659dbe79a03b115@petdance.com>
p4raw-id: //depot/perl@24074
Diffstat (limited to 'minimod.pl')
| -rw-r--r-- | minimod.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/minimod.pl b/minimod.pl index 18b9c0748c..39f976395f 100644 --- a/minimod.pl +++ b/minimod.pl @@ -65,7 +65,7 @@ sub writemain{ my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s ); print $tail1; - print "\tchar *file = __FILE__;\n"; + print "\tconst char file[] = __FILE__;\n"; print "\tdXSUB_SYS;\n" if $] > 5.002; foreach $_ (@exts){ |