Hello community,
here is the log from the commit of package perl-Verilog-Perl for
openSUSE:Factory checked in at 2020-10-30 11:58:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Verilog-Perl (Old)
and /work/SRC/openSUSE:Factory/.perl-Verilog-Perl.new.3463 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Verilog-Perl"
Fri Oct 30 11:58:59 2020 rev:8 rq:845002 version:3.474
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Verilog-Perl/perl-Verilog-Perl.changes
2020-10-26 16:19:38.127095453 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Verilog-Perl.new.3463/perl-Verilog-Perl.changes
2020-10-30 11:58:59.702309194 +0100
@@ -1,0 +2,12 @@
+Fri Oct 30 03:11:40 UTC 2020 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 3.474
+ see /usr/share/doc/packages/perl-Verilog-Perl/Changes
+
+ * Verilog-Perl 3.474 2020-10-29
+
+ **** Add filenames in vhier --xml cells.
+
+ **** Fix duplicates in vhier --includes. [Gregory Pierce]
+
+-------------------------------------------------------------------
Old:
----
Verilog-Perl-3.472.tar.gz
New:
----
Verilog-Perl-3.474.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Verilog-Perl.spec ++++++
--- /var/tmp/diff_new_pack.6mOxBq/_old 2020-10-30 11:59:00.882310238 +0100
+++ /var/tmp/diff_new_pack.6mOxBq/_new 2020-10-30 11:59:00.882310238 +0100
@@ -17,7 +17,7 @@
Name: perl-Verilog-Perl
-Version: 3.472
+Version: 3.474
Release: 0
%define cpan_name Verilog-Perl
Summary: Verilog language utilities and parsing
++++++ Verilog-Perl-3.472.tar.gz -> Verilog-Perl-3.474.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Changes
new/Verilog-Perl-3.474/Changes
--- old/Verilog-Perl-3.472/Changes 2020-10-18 16:26:16.000000000 +0200
+++ new/Verilog-Perl-3.474/Changes 2020-10-29 16:32:08.000000000 +0100
@@ -4,6 +4,13 @@
indicates the contributor was also the author of the fix; Thanks!
+* Verilog-Perl 3.474 2020-10-29
+
+**** Add filenames in vhier --xml cells.
+
+**** Fix duplicates in vhier --includes. [Gregory Pierce]
+
+
* Verilog-Perl 3.472 2020-10-18
*** Add vhier --includes. [Gregory Pierce]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/EditFiles.pm
new/Verilog-Perl-3.474/EditFiles.pm
--- old/Verilog-Perl-3.472/EditFiles.pm 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/EditFiles.pm 2020-10-29 16:33:22.000000000 +0100
@@ -13,7 +13,7 @@
######################################################################
#### Configuration Section
-$VERSION = '3.472';
+$VERSION = '3.474';
#######################################################################
# CONSTRUCTORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Getopt.pm
new/Verilog-Perl-3.474/Getopt.pm
--- old/Verilog-Perl-3.472/Getopt.pm 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/Getopt.pm 2020-10-29 16:33:22.000000000 +0100
@@ -16,7 +16,7 @@
######################################################################
#### Configuration Section
-$VERSION = '3.472';
+$VERSION = '3.474';
# Basenames we should ignore when recursing directories,
# Because they contain large files of no relevance
@@ -341,8 +341,7 @@
if (@_) {
my $from_filename = shift;
my $inc_filename = shift;
- $self->{includes}{$from_filename} ||= [];
- push @{$self->{includes}{$from_filename}}, $inc_filename;
+ $self->{includes}{$from_filename}{$inc_filename} = 1;
}
return $self->{includes};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Language.pm
new/Verilog-Perl-3.474/Language.pm
--- old/Verilog-Perl-3.472/Language.pm 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/Language.pm 2020-10-29 16:33:22.000000000 +0100
@@ -151,7 +151,7 @@
######################################################################
#### Configuration Section
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
#### Internal Variables
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/META.yml
new/Verilog-Perl-3.474/META.yml
--- old/Verilog-Perl-3.472/META.yml 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/META.yml 2020-10-29 16:33:22.000000000 +0100
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Verilog-Perl
-version: 3.472
+version: 3.474
version_from: Language.pm
abstract: Verilog language utilities and parsing
license: perl
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Cell.pm
new/Verilog-Perl-3.474/Netlist/Cell.pm
--- old/Verilog-Perl-3.472/Netlist/Cell.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Cell.pm 2020-10-29 16:33:22.000000000
+0100
@@ -11,7 +11,7 @@
@ISA = qw(Verilog::Netlist::Cell::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::Cell::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/ContAssign.pm
new/Verilog-Perl-3.474/Netlist/ContAssign.pm
--- old/Verilog-Perl-3.472/Netlist/ContAssign.pm 2020-10-18
16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/Netlist/ContAssign.pm 2020-10-29
16:33:22.000000000 +0100
@@ -11,7 +11,7 @@
@ISA = qw(Verilog::Netlist::ContAssign::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::ContAssign::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Defparam.pm
new/Verilog-Perl-3.474/Netlist/Defparam.pm
--- old/Verilog-Perl-3.472/Netlist/Defparam.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Defparam.pm 2020-10-29 16:33:22.000000000
+0100
@@ -11,7 +11,7 @@
@ISA = qw(Verilog::Netlist::Defparam::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::Defparam::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/File.pm
new/Verilog-Perl-3.474/Netlist/File.pm
--- old/Verilog-Perl-3.472/Netlist/File.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/File.pm 2020-10-29 16:33:22.000000000
+0100
@@ -12,7 +12,7 @@
@ISA = qw(Verilog::Netlist::File::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::File::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Interface.pm
new/Verilog-Perl-3.474/Netlist/Interface.pm
--- old/Verilog-Perl-3.472/Netlist/Interface.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Interface.pm 2020-10-29 16:33:22.000000000
+0100
@@ -14,7 +14,7 @@
@ISA = qw(Verilog::Netlist::Interface::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::Interface::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Logger.pm
new/Verilog-Perl-3.474/Netlist/Logger.pm
--- old/Verilog-Perl-3.472/Netlist/Logger.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Logger.pm 2020-10-29 16:33:22.000000000
+0100
@@ -7,7 +7,7 @@
use vars qw($VERSION);
use strict;
-$VERSION = '3.472';
+$VERSION = '3.474';
# We don't use Verilog::Netlist::Subclass, as this is called from it!
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/ModPort.pm
new/Verilog-Perl-3.474/Netlist/ModPort.pm
--- old/Verilog-Perl-3.472/Netlist/ModPort.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/ModPort.pm 2020-10-29 16:33:22.000000000
+0100
@@ -12,7 +12,7 @@
@ISA = qw(Verilog::Netlist::ModPort::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::ModPort::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Module.pm
new/Verilog-Perl-3.474/Netlist/Module.pm
--- old/Verilog-Perl-3.472/Netlist/Module.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Module.pm 2020-10-29 16:33:22.000000000
+0100
@@ -17,7 +17,7 @@
@ISA = qw(Verilog::Netlist::Module::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('new',
'Verilog::Netlist::Module::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Net.pm
new/Verilog-Perl-3.474/Netlist/Net.pm
--- old/Verilog-Perl-3.472/Netlist/Net.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Net.pm 2020-10-29 16:33:22.000000000
+0100
@@ -11,7 +11,7 @@
@ISA = qw(Verilog::Netlist::Net::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
my %_Type_Widths = (
'bit' => 1,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Pin.pm
new/Verilog-Perl-3.474/Netlist/Pin.pm
--- old/Verilog-Perl-3.472/Netlist/Pin.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Pin.pm 2020-10-29 16:33:22.000000000
+0100
@@ -17,7 +17,7 @@
@ISA = qw(Verilog::Netlist::Pin::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('_new_base',
'Verilog::Netlist::Pin::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Port.pm
new/Verilog-Perl-3.474/Netlist/Port.pm
--- old/Verilog-Perl-3.472/Netlist/Port.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Port.pm 2020-10-29 16:33:22.000000000
+0100
@@ -11,7 +11,7 @@
@ISA = qw(Verilog::Netlist::Port::Struct
Verilog::Netlist::Subclass);
-$VERSION = '3.472';
+$VERSION = '3.474';
structs('_new_base',
'Verilog::Netlist::Port::Struct'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist/Subclass.pm
new/Verilog-Perl-3.474/Netlist/Subclass.pm
--- old/Verilog-Perl-3.472/Netlist/Subclass.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Netlist/Subclass.pm 2020-10-29 16:33:22.000000000
+0100
@@ -12,7 +12,7 @@
use vars qw($VERSION @EXPORT);
use strict;
-$VERSION = '3.472';
+$VERSION = '3.474';
@EXPORT = qw(structs);
# Maybe in the future. For now all users of this must do it themselves
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Netlist.pm
new/Verilog-Perl-3.474/Netlist.pm
--- old/Verilog-Perl-3.472/Netlist.pm 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/Netlist.pm 2020-10-29 16:33:22.000000000 +0100
@@ -14,7 +14,7 @@
use strict;
use vars qw($Debug $Verbose $VERSION);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
#### Error Handling
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Parser/Parser.pm
new/Verilog-Perl-3.474/Parser/Parser.pm
--- old/Verilog-Perl-3.472/Parser/Parser.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Parser/Parser.pm 2020-10-29 16:33:22.000000000
+0100
@@ -14,7 +14,7 @@
use strict;
use vars qw($VERSION $Debug);
-$VERSION = '3.472';
+$VERSION = '3.474';
#$Debug sets the default value for debug. You're better off with the object
method though.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Parser/SigParser.pm
new/Verilog-Perl-3.474/Parser/SigParser.pm
--- old/Verilog-Perl-3.472/Parser/SigParser.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Parser/SigParser.pm 2020-10-29 16:33:22.000000000
+0100
@@ -14,7 +14,7 @@
######################################################################
#### Configuration Section
-$VERSION = '3.472';
+$VERSION = '3.474';
our @_Callback_Names = qw(
attribute
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Parser/bisonpre
new/Verilog-Perl-3.474/Parser/bisonpre
--- old/Verilog-Perl-3.472/Parser/bisonpre 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Parser/bisonpre 2020-10-29 16:33:22.000000000
+0100
@@ -9,7 +9,7 @@
use strict;
use vars qw($Debug $VERSION);
-$VERSION = '3.472';
+$VERSION = '3.474';
our $Self;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Parser/callbackgen
new/Verilog-Perl-3.474/Parser/callbackgen
--- old/Verilog-Perl-3.472/Parser/callbackgen 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Parser/callbackgen 2020-10-29 16:33:22.000000000
+0100
@@ -14,7 +14,7 @@
require "../Language.pm";
package main;
-$VERSION = '3.472';
+$VERSION = '3.474';
# xs_manual=>1, -> The .xs file makes the handler itself
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Parser/gen/bisonpre-0
new/Verilog-Perl-3.474/Parser/gen/bisonpre-0
--- old/Verilog-Perl-3.472/Parser/gen/bisonpre-0 2020-10-18
16:27:04.000000000 +0200
+++ new/Verilog-Perl-3.474/Parser/gen/bisonpre-0 2020-10-29
16:33:37.000000000 +0100
@@ -1 +1 @@
-kh0LjSWbfs6DEcPvdlWEjfZtbpk
\ No newline at end of file
+/vKIC+pKZJ2XTUKlI7s1i4wesBc
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Preproc/Preproc.pm
new/Verilog-Perl-3.474/Preproc/Preproc.pm
--- old/Verilog-Perl-3.472/Preproc/Preproc.pm 2020-10-18 16:26:45.000000000
+0200
+++ new/Verilog-Perl-3.474/Preproc/Preproc.pm 2020-10-29 16:33:22.000000000
+0100
@@ -11,7 +11,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
#### Configuration Section
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/Std.pm
new/Verilog-Perl-3.474/Std.pm
--- old/Verilog-Perl-3.472/Std.pm 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/Std.pm 2020-10-29 16:33:22.000000000 +0100
@@ -14,7 +14,7 @@
######################################################################
#### Configuration Section
-$VERSION = '3.472';
+$VERSION = '3.474';
#######################################################################
# It's a PITRA to have pure datafiles get installed properly, so we have
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/t/85_vhier_xml.out
new/Verilog-Perl-3.474/t/85_vhier_xml.out
--- old/Verilog-Perl-3.472/t/85_vhier_xml.out 2020-10-14 15:33:42.000000000
+0200
+++ new/Verilog-Perl-3.474/t/85_vhier_xml.out 2020-10-28 02:35:35.000000000
+0100
@@ -1,12 +1,12 @@
<vhier>
<cells>
- <cell name="v_hier_top" submodname="v_hier_top" hier="v_hier_top">
- <cell name="recursive" submodname="v_recursive"
hier="v_hier_top.recursive">
+ <cell name="v_hier_top" submodname="v_hier_top" hier="v_hier_top"
filename="verilog/v_hier_top.v">
+ <cell name="recursive" submodname="v_recursive"
hier="v_hier_top.recursive" filename="verilog/v_recursive.v">
</cell>
- <cell name="sub" submodname="v_hier_sub" hier="v_hier_top.sub">
- <cell name="subsub0" submodname="v_hier_subsub"
hier="v_hier_top.sub.subsub0">
+ <cell name="sub" submodname="v_hier_sub" hier="v_hier_top.sub"
filename="verilog/v_hier_sub.v">
+ <cell name="subsub0" submodname="v_hier_subsub"
hier="v_hier_top.sub.subsub0" filename="verilog/v_hier_subsub.v">
</cell>
- <cell name="subsub2" submodname="v_hier_subsub"
hier="v_hier_top.sub.subsub2">
+ <cell name="subsub2" submodname="v_hier_subsub"
hier="v_hier_top.sub.subsub2" filename="verilog/v_hier_subsub.v">
</cell>
</cell>
</cell>
@@ -25,8 +25,9 @@
<file>verilog/v_recursive.v</file>
</input_files>
<includes>
- <file>verilog/v_hier_top.v</file>
- <inc>v_hier_inc.vh</inc>
+ <file name="verilog/v_hier_top.v">
+ <inc name="verilog/v_hier_inc.vh" />
+ </file>
</includes>
<missing_modules>
<module name="missing" />
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/vhier new/Verilog-Perl-3.474/vhier
--- old/Verilog-Perl-3.472/vhier 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/vhier 2020-10-29 16:33:22.000000000 +0100
@@ -17,7 +17,7 @@
use strict;
use vars qw($Debug $VERSION);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
# main
@@ -137,7 +137,7 @@
$nl->read_libraries();
$fh->print(" <resolve_files>\n") if $Opt_Xml;
foreach my $file (@files) {
- if (my $resolved = $nl->resolve_filename ($file, "all")) {
+ if (my $resolved = $nl->resolve_filename($file, "all")) {
$fh->print( "$resolved\n") if !$Opt_Xml;
$fh->print( " <file>$resolved</file>\n") if $Opt_Xml;
}
@@ -204,11 +204,14 @@
$fh->print(" <includes>\n") if $Opt_Xml;
foreach my $filename (sort keys %{$Opt->includes}) {
$fh->print(" $filename\n") if !$Opt_Xml;
- $fh->print(" <file>$filename</file>\n") if $Opt_Xml;
- foreach my $incname (@{$Opt->{includes}{$filename}}) {
+ $fh->printf(" <file name=\"%s\">\n",
+ $Opt->file_path($filename)) if $Opt_Xml;
+ foreach my $incname (sort keys %{$Opt->{includes}{$filename}}) {
$fh->print(" $incname\n") if !$Opt_Xml;
- $fh->print(" <inc>$incname</inc>\n") if $Opt_Xml;
+ $fh->printf(" <inc name=\"%s\" />\n",
+ $Opt->file_path($incname)) if $Opt_Xml;
}
+ $fh->print(" </file>\n") if $Opt_Xml;
}
$fh->print(" </includes>\n") if $Opt_Xml;
}
@@ -347,12 +350,14 @@
my $instance = $parcell ? $parcell->name : $name;
# print the mod instance
- $Opt_Xml ?
- $fh->printf("%s<cell name=\"%s\" submodname=\"%s\" hier=\"%s\">\n",
- $indent, $parcell ? $parcell->name : $name, $name, $hier) :
- $Opt_Instance ?
- $fh->printf("%s%s %s\n", $indent, $instance, $name) :
- $fh->printf("%s%s\n", $indent, $name);
+ $fh->printf("%s<cell name=\"%s\" submodname=\"%s\" hier=\"%s\"
filename=\"%s\">\n",
+ $indent, ($parcell ? $parcell->name : $name), $name, $hier,
+ $Opt->file_path($mod->filename))
+ if $Opt_Xml;
+ $fh->printf("%s%s %s\n", $indent, $instance, $name)
+ if !$Opt_Xml && $Opt_Instance;
+ $fh->printf("%s%s\n", $indent, $name)
+ if !$Opt_Xml && !$Opt_Instance;
# print the design hierarchy of each cell in mod
my $i = 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/vpassert
new/Verilog-Perl-3.474/vpassert
--- old/Verilog-Perl-3.472/vpassert 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/vpassert 2020-10-29 16:33:22.000000000 +0100
@@ -36,7 +36,7 @@
%Files %Files_Read
%File_Dest
);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
# configuration
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/vppreproc
new/Verilog-Perl-3.474/vppreproc
--- old/Verilog-Perl-3.472/vppreproc 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/vppreproc 2020-10-29 16:33:22.000000000 +0100
@@ -16,7 +16,7 @@
use strict;
use vars qw($Debug $VERSION);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
# main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Verilog-Perl-3.472/vrename
new/Verilog-Perl-3.474/vrename
--- old/Verilog-Perl-3.472/vrename 2020-10-18 16:26:45.000000000 +0200
+++ new/Verilog-Perl-3.474/vrename 2020-10-29 16:33:22.000000000 +0100
@@ -23,7 +23,7 @@
$Debug $Opt_Xref $Opt_Crypt $Opt_Crypt_All $Opt_Write $Opt_Keywords
@Files);
-$VERSION = '3.472';
+$VERSION = '3.474';
######################################################################
