Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32497
Modified Files:
ChangeLog Engine.pm
Log Message:
Better accessor usage in dumpinfo
Index: Engine.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Engine.pm,v
retrieving revision 1.268
retrieving revision 1.269
diff -u -d -r1.268 -r1.269
--- Engine.pm 27 Apr 2005 01:57:30 -0000 1.268
+++ Engine.pm 27 Apr 2005 07:02:04 -0000 1.269
@@ -2217,10 +2217,12 @@
printf "infofile: %s\n",
$pkg->get_info_filename();
} elsif ($_ eq 'package') {
printf "%s: %s\n", $_, $pkg->get_name();
+ } elsif ($_ eq 'epoch') {
+ printf "%s: %s\n", $_, $pkg->get_epoch();
} elsif ($_ eq 'version') {
- printf "%s: %s\n", $_, $pkg->get_version();
+ printf "%s: %s\n", $_, $pkg->get_version();
} elsif ($_ eq 'revision') {
- printf "%s: %s\n", $_,
$pkg->param_default('revision', '1');
+ printf "%s: %s\n", $_, $pkg->get_revision();
} elsif ($_ eq 'parent') {
printf "%s: %s\n", $_,
$pkg->get_parent->get_name() if $pkg->has_parent;
} elsif ($_ eq 'splitoffs') {
@@ -2307,7 +2309,7 @@
} elsif ($_ =~ /^source(\d*)$/) {
my $src = $pkg->get_source($1);
printf "%s: %s\n", $_, $src if defined $src &&
$src ne "none";
- } elsif ($_ eq 'gcc' or $_ eq 'epoch' or $_ =~
/^source\d*-md5$/) {
+ } elsif ($_ eq 'gcc' or $_ =~ /^source\d*-md5$/) {
printf "%s: %s\n", $_, $pkg->param($_) if
$pkg->has_param($_);
} elsif ($_ eq 'configureparams') {
my $cparams = &expand_percent(
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.978
retrieving revision 1.979
diff -u -d -r1.978 -r1.979
--- ChangeLog 27 Apr 2005 03:33:52 -0000 1.978
+++ ChangeLog 27 Apr 2005 07:02:01 -0000 1.979
@@ -1,3 +1,7 @@
+2005-04-27 Daniel Macks <[EMAIL PROTECTED]>
+
+ * Engine.pm: Better accessor usage in dumpinfo
+
2005-04-26 Ben Hines <[EMAIL PROTECTED]>
* Config.pm: Properly handle Verbose set >= 3.
-------------------------------------------------------
SF.Net email is sponsored by: Tell us your software development plans!
Take this survey and enter to win a one-year sub to SourceForge.net
Plus IDC's 2005 look-ahead and a copy of this survey
Click here to start! http://www.idcswdc.com/cgi-bin/survey?id=105hix
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
