aboutsummaryrefslogtreecommitdiffstats
path: root/libical/scripts/mkderivedvalues.pl
diff options
context:
space:
mode:
Diffstat (limited to 'libical/scripts/mkderivedvalues.pl')
-rwxr-xr-xlibical/scripts/mkderivedvalues.pl22
1 files changed, 13 insertions, 9 deletions
diff --git a/libical/scripts/mkderivedvalues.pl b/libical/scripts/mkderivedvalues.pl
index a0909a6d94..ca2ee4b3a1 100755
--- a/libical/scripts/mkderivedvalues.pl
+++ b/libical/scripts/mkderivedvalues.pl
@@ -32,7 +32,11 @@ if ($opt_i) {
}
- print "/* Everything below this line is machine generated. Do not edit. */\n";
+ if($opt_p){
+ print "# Everything below this line is machine generated. Do not edit. \n";
+ } else {
+ print "/* Everything below this line is machine generated. Do not edit. */\n";
+ }
}
@@ -224,9 +228,9 @@ EOM
print <<EOM;
-package ICal::Value::${ucf};
-use ICal::Value;
-\@ISA=qw(ICal::Value);
+package Net::ICal::Value::${ucf};
+use Net::ICal::Value;
+\@ISA=qw(Net::ICal::Value);
sub new
{
my \$self = [];
@@ -238,9 +242,9 @@ sub new
my \$p;
if (\$value){
- \$p = ICal::icalvalue_new_from_string(\$ICal::ICAL_${uc}_VALUE,\$value);
+ \$p = Net::ICal::icalvalue_new_from_string(\$Net::ICal::ICAL_${uc}_VALUE,\$value);
} else {
- \$p = ICal::icalvalue_new(\$ICal::ICAL_${uc}_VALUE);
+ \$p = Net::ICal::icalvalue_new(\$Net::ICal::ICAL_${uc}_VALUE);
}
\$self->[0] = \$p;
@@ -256,9 +260,9 @@ sub set
my \$impl = \$self->_impl();
if (\$v) {
- my \$new_value = ICal::icalvalue_new_from_string(\$ICal::ICAL_${uc}_VALUE,\$v);
+ my \$new_value = Net::ICal::icalvalue_new_from_string(\$Net::ICal::ICAL_${uc}_VALUE,\$v);
if (\$new_value){
- ICal::icalvalue_free(\$self->[0]);
+ Net::ICal::icalvalue_free(\$self->[0]);
\$self->[0] = \$new_value;
}
@@ -273,7 +277,7 @@ sub get
if (defined \$impl){
- return ICal::icalvalue_as_ical_string(\$impl);
+ return Net::ICal::icalvalue_as_ical_string(\$impl);
}
}