| 1 | use Config;
|
|---|
| 2 |
|
|---|
| 3 | sub to_string {
|
|---|
| 4 | my ($value) = @_;
|
|---|
| 5 | $value =~ s/\\/\\\\/g;
|
|---|
| 6 | $value =~ s/'/\\'/g;
|
|---|
| 7 | return "'$value'";
|
|---|
| 8 | }
|
|---|
| 9 |
|
|---|
| 10 | unlink "DynaLoader.pm" if -f "DynaLoader.pm";
|
|---|
| 11 | open OUT, ">DynaLoader.pm" or die $!;
|
|---|
| 12 | print OUT <<'EOT';
|
|---|
| 13 |
|
|---|
| 14 | # Generated from DynaLoader.pm.PL
|
|---|
| 15 |
|
|---|
| 16 | package DynaLoader;
|
|---|
| 17 |
|
|---|
| 18 | # And Gandalf said: 'Many folk like to know beforehand what is to
|
|---|
| 19 | # be set on the table; but those who have laboured to prepare the
|
|---|
| 20 | # feast like to keep their secret; for wonder makes the words of
|
|---|
| 21 | # praise louder.'
|
|---|
| 22 |
|
|---|
| 23 | # (Quote from Tolkien suggested by Anno Siegel.)
|
|---|
| 24 | #
|
|---|
| 25 | # See pod text at end of file for documentation.
|
|---|
| 26 | # See also ext/DynaLoader/README in source tree for other information.
|
|---|
| 27 | #
|
|---|
|
|---|
