mirror of
https://github.com/pgpointcloud/pointcloud.git
synced 2025-12-08 20:36:04 +00:00
15 lines
243 B
Perl
Executable File
15 lines
243 B
Perl
Executable File
# Copyright (C) 2015 Boundless
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
eval "exec perl -w $0 $@"
|
|
if (0);
|
|
|
|
local $/;
|
|
local $sql = <STDIN>;
|
|
$sql =~ s/\nCREATE TYPE[^;]*;//gs;
|
|
$sql =~ s/\nCREATE AGGREGATE[^;]*;//gs;
|
|
$sql =~ s/\nCREATE CAST[^;]*;//gs;
|
|
|
|
print $sql;
|